Ignore:
Timestamp:
Sep 24, 2018 3:42:55 PM (3 years ago)
Author:
knoop
Message:

Modularization of all bulk cloud physics code components

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/tridia_solver_mod.f90

    r3241 r3274  
    2525! -----------------
    2626! $Id$
     27! Modularization of all bulk cloud physics code components
     28!
     29! 3241 2018-09-12 15:02:00Z raasch
    2730! unused variables removed
    2831!
     
    109112 
    110113
     114    USE basic_constants_and_equations_mod,                                     &
     115        ONLY:  pi
     116
    111117    USE indices,                                                               &
    112118        ONLY:  nx, ny, nz
     
    145151       USE arrays_3d,                                                          &
    146152           ONLY:  ddzu_pres, ddzw, rho_air_zw
    147 
    148        USE kinds
    149153
    150154       IMPLICIT NONE
     
    186190              ONLY:  tric, rho_air
    187191
    188           USE constants,                                                       &
    189               ONLY:  pi
    190 
    191192          USE control_parameters,                                              &
    192193              ONLY:  ibc_p_b, ibc_p_t
     
    195196              ONLY:  dx, dy
    196197
    197 
    198           USE kinds
    199198
    200199          IMPLICIT NONE
     
    282281              ONLY:  ibc_p_b, ibc_p_t
    283282
    284           USE kinds
    285 
    286283          IMPLICIT NONE
    287284
     
    358355              ONLY:  ibc_p_b, ibc_p_t
    359356
    360           USE kinds
    361 
    362357          IMPLICIT NONE
    363358
     
    431426          USE arrays_3d,                                                       &
    432427              ONLY:  tri, tric
    433 
    434           USE kinds
    435428
    436429          IMPLICIT NONE
     
    482475           ONLY:  ibc_p_b, ibc_p_t
    483476
    484        USE kinds
    485 
    486477       IMPLICIT NONE
    487478
     
    533524!------------------------------------------------------------------------------!
    534525       SUBROUTINE maketri_1dd( j )
    535 
    536           USE constants,                                                       &
    537               ONLY:  pi
    538 
    539           USE kinds
    540526
    541527          IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.