Changeset 1765 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

Aug 24, 2017, 2:05:47 PM (7 years ago)

Author:

aslmd

Message:

MESOSCALE. changed name of init_planet to init_module_constants for consistency.

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2

Files:

• dyn_em/module_initialize_quarter_ss.F (modified) (1 diff)
• share/init_modules.F (modified) (1 diff)
• share/module_model_constants.F (modified) (2 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_quarter_ss.F

@@ -140 +140 @@
 #endif
 
-   call init_planet_constants
+   call init_module_model_constants
 
    SELECT CASE ( model_data_order )

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/init_modules.F

@@ -55 +55 @@
  CALL init_module_configure
  CALL init_module_driver_constants
- CALL init_planet_constants
+ CALL init_module_model_constants
  CALL init_module_domain
  CALL init_module_machine

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/module_model_constants.F

@@ -186 +186 @@
     REAL :: nu
  CONTAINS
-  SUBROUTINE init_planet_constants
+  SUBROUTINE init_module_model_constants
     IMPLICIT NONE
     Call initial_config
@@ -304 +304 @@
     write(*,*) "T0 = ", TT00
     write(*,*) "nu = ", nu
-  END SUBROUTINE init_planet_constants
+  END SUBROUTINE init_module_model_constants
  END MODULE module_model_constants