Ignore:
Timestamp:
Oct 1, 2018 2:37:10 AM (3 years ago)
Author:
raasch
Message:

modularization of the ocean code

File:
1 edited

Legend:

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

    r3274 r3294  
    2626! -----------------
    2727! $Id$
     28! changes concerning modularization of ocean option
     29!
     30! 3274 2018-09-24 15:42:55Z knoop
    2831! Modularization of all bulk cloud physics code components
    2932!
     
    11141117!
    11151118!--    Salinity surface flux
    1116        IF ( ocean )  DEALLOCATE ( surfaces%sasws )
     1119       IF ( ocean_mode )  DEALLOCATE ( surfaces%sasws )
    11171120
    11181121    END SUBROUTINE deallocate_surface_attributes_h
     
    12411244!
    12421245!--    Salinity surface flux
    1243        IF ( ocean )  ALLOCATE ( surfaces%sasws(1:surfaces%ns) )
     1246       IF ( ocean_mode )  ALLOCATE ( surfaces%sasws(1:surfaces%ns) )
    12441247
    12451248    END SUBROUTINE allocate_surface_attributes_h
     
    13061309!
    13071310!--    Salinity flux
    1308        IF ( ocean )  DEALLOCATE ( surfaces%sasws )
     1311       IF ( ocean_mode )  DEALLOCATE ( surfaces%sasws )
    13091312
    13101313    END SUBROUTINE deallocate_surface_attributes_h_top
     
    13781381!
    13791382!--    Salinity flux
    1380        IF ( ocean )  ALLOCATE ( surfaces%sasws(1:surfaces%ns) )
     1383       IF ( ocean_mode )  ALLOCATE ( surfaces%sasws(1:surfaces%ns) )
    13811384
    13821385    END SUBROUTINE allocate_surface_attributes_h_top
     
    14961499!
    14971500!--    Salinity surface flux
    1498        IF ( ocean )  DEALLOCATE ( surfaces%sasws )
     1501       IF ( ocean_mode )  DEALLOCATE ( surfaces%sasws )
    14991502
    15001503    END SUBROUTINE deallocate_surface_attributes_v
     
    16211624!
    16221625!--    Salinity surface flux
    1623        IF ( ocean )  ALLOCATE ( surfaces%sasws(1:surfaces%ns) )
     1626       IF ( ocean_mode )  ALLOCATE ( surfaces%sasws(1:surfaces%ns) )
    16241627
    16251628    END SUBROUTINE allocate_surface_attributes_v
     
    22682271                ENDIF
    22692272
    2270                 IF ( ocean )  THEN
     2273                IF ( ocean_mode )  THEN
    22712274                   IF ( upward_facing )  THEN
    22722275                      surf%sasws(num_h) = bottom_salinityflux * rho_air_zw(k-1)
     
    23442347!
    23452348!--          Prescribe top salinity flux
    2346              IF ( ocean .AND. constant_top_salinityflux)                       &
     2349             IF ( ocean_mode .AND. constant_top_salinityflux)                  &
    23472350                surf%sasws(num_h) = top_salinityflux * rho_air_zw(nzt+1)
    23482351!
     
    24882491!--          So far, salinityflux at vertical surfaces is simply zero
    24892492!--          at the moment 
    2490              IF ( ocean )  surf%sasws(num_v) = wall_salinityflux(component)
     2493             IF ( ocean_mode )  surf%sasws(num_v) = wall_salinityflux(component)
    24912494!
    24922495!--          Increment wall indices
Note: See TracChangeset for help on using the changeset viewer.