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/surface_coupler.f90

    r3049 r3274  
    2525! -----------------
    2626! $Id$
     27! Modularization of all bulk cloud physics code components
     28!
     29! 3049 2018-05-29 13:52:36Z Giersch
    2730! Error messages revised
    2831!
     
    101104        ONLY:  pt, rho_ocean, sa, total_2d_a, total_2d_o, u, v
    102105
    103     USE cloud_parameters,                                                      &
    104         ONLY:  cp, l_v
     106    USE basic_constants_and_equations_mod,                                     &
     107        ONLY:  c_p, l_v
    105108
    106109    USE control_parameters,                                                    &
     
    477480             
    478481             surf_def_h(2)%shf(m) = surf_def_h(2)%shf(m) +                     &
    479                                     surf_def_h(2)%qsws(m) * l_v / cp
     482                                    surf_def_h(2)%qsws(m) * l_v / c_p
    480483!
    481484!--          ...and convert it to a salinity flux at the sea surface (top)
     
    498501          j = surf_def_h(2)%j(m)
    499502          surf_def_h(2)%shf(m) = surf_def_h(2)%shf(m) / rho_ocean(nzt,j,i) *   &
    500                                  cp / cpw
     503                                 c_p / cpw
    501504
    502505          surf_def_h(2)%usws(m) = surf_def_h(2)%usws(m) / rho_ocean(nzt,j,i)
Note: See TracChangeset for help on using the changeset viewer.