Changeset 2795 for LMDZ5/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Feb 22, 2017, 9:29:30 AM (7 years ago)

Author:

Laurent Fairhead

Message:

Upgrading time counter in the physics to a count of seconds from the start of the run.
The old counter made the model diverge when runs made in 4 months chunks were compared
to runs made in 1 month chunks

File:

• LMDZ5/trunk/libf/phylmd/physiq_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -1735 +1735 @@
     !
     itap   = itap + 1
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_master .OR. prt_level > 9) THEN
       IF (prt_level > 5 .or. MOD(itap,5) == 0) THEN
-         WRITE(LUNOUT,*)'Entering physics current time = ', current_time
-         WRITE(LUNOUT,*)'Date = ',year_cur,'/',mth_cur,'/',day_cur,':',hour/3600
+         WRITE(LUNOUT,*)'Entering physics elapsed seconds since start ', current_time
+         WRITE(LUNOUT,100)year_cur,mth_cur,day_cur,hour/3600.
+ 100     FORMAT('Date = ',i4.4,' / ',i2.2, ' / ',i2.2,' : ',f20.17)
       ENDIF
     ENDIF