Changeset 3685 for palm/trunk/SOURCE/salsa_mod.f90

Timestamp:

Jan 21, 2019 1:02:11 AM (5 years ago)

Author:

knoop

Message:

Some interface calls moved to module_interface + cleanup

File:

• palm/trunk/SOURCE/salsa_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/salsa_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Some interface calls moved to module_interface + cleanup
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Implementation of the PALM module interface
 ! 
@@ -1182 +1185 @@
     INTEGER(iwp) :: j
     
+    CALL location_message( 'initializing SALSA model', .TRUE. )
+    
     bin_low_limits = 0.0_wp
     nsect          = 0.0_wp
@@ -1317 +1322 @@
        CALL salsa_set_source
     ENDIF
+    
+    CALL location_message( 'finished', .TRUE. )
     
  END SUBROUTINE salsa_init