Changeset 2266 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Mar 25, 2020, 3:40:24 PM (5 years ago)

Author:

emillour

Message:

Mars GCM:
Some very minor fixes in the physics to be able to compile physics as a library:

• remove reference to unused .h files located in the dynamics in nonoro_gwd_ran_mod.F
• fix an OpenMP declaration in time_phylmdz_mod.F90

EM

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• nonoro_gwd_ran_mod.F90 (modified) (1 diff)
• time_phylmdz_mod.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/nonoro_gwd_ran_mod.F90

@@ -41 +41 @@
       implicit none
 
-      include "dimensions.h"
-      include "paramet.h"
       include "yoegwd.h" 
       include "callkeys.h"

trunk/LMDZ.MARS/libf/phymars/time_phylmdz_mod.F90

@@ -3 +3 @@
     IMPLICIT NONE
     REAL,SAVE    :: dtphys      ! physics time step (s)
-!$OMP THREADPRIVATE(pdtphys)
+!$OMP THREADPRIVATE(dtphys)
     INTEGER,SAVE :: day_step    ! number of dynamical steps per day
                                 ! (set via conf_phys)