Ignore:
Timestamp:
Jan 21, 2019 1:02:11 AM (5 years ago)
Author:
knoop
Message:

Some interface calls moved to module_interface + cleanup

File:
1 edited

Legend:

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

    r3668 r3685  
    2626! -----------------
    2727! $Id$
     28! Some interface calls moved to module_interface + cleanup
     29!
     30! 3668 2019-01-14 12:49:24Z maronga
    2831! Removed methods "circular" and "lookup"
    2932!
     
    729732
    730733
     734       CALL location_message( 'initializing surface layer', .FALSE. )
    731735
    732736
     
    739743          IF ( surf_usm_h%ns    >= 1 )  surf_usm_h%ol    = 1.0E10_wp
    740744       ENDIF
     745
     746       CALL location_message( 'finished', .TRUE. )
    741747
    742748    END SUBROUTINE init_surface_layer_fluxes
Note: See TracChangeset for help on using the changeset viewer.