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

Timestamp:

Jan 27, 2017, 9:30:01 AM (7 years ago)

Author:

Laurent Fairhead

Message:

Printing the current time and date when entering the physics (information is needed when
extracting crashing points). Date is printed out by mpi/omp master process every 5 physics
steps or at each physics timestep if prt_level > 5

File:

• LMDZ5/trunk/libf/phylmd/physiq_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -21 +21 @@
     USE geometry_mod, ONLY: cell_area, latitude_deg, longitude_deg
     USE phys_cal_mod, only: year_len, mth_len, days_elapsed, jh_1jan, &
-         year_cur, mth_cur,jD_cur, jH_cur, jD_ref
+         year_cur, mth_cur,jD_cur, jH_cur, jD_ref, day_cur, hour
     USE write_field_phy
     USE dimphy
@@ -30 +30 @@
     USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
     USE phystokenc_mod, ONLY: offline, phystokenc
-    USE time_phylmdz_mod, only: raz_date, day_step_phy, update_time
+    USE time_phylmdz_mod, only: raz_date, day_step_phy, update_time,current_time
     USE vampir
     USE pbl_surface_mod, ONLY : pbl_surface
@@ -1736 +1736 @@
     !
     itap   = itap + 1
+    IF (is_mpi_root .AND. is_omp_root) 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
+      ENDIF
+    ENDIF
     !
     !