Changeset 2616 for LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F

Timestamp:

Aug 26, 2016, 5:05:04 PM (8 years ago)

Author:

fhourdin

Message:

Reactivation de la clé "conser" pour pouvoir faire ds sorties dans
le listing tous les iconser.

File:

• LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F

@@ -472 +472 @@
 cym      apphys = .FALSE.
       statcl = .FALSE.
-      conser = .FALSE. ! ie: no output of control variables to stdout in //
+!     conser = .FALSE. ! ie: no output of control variables to stdout in //
       
       if (firstCaldyn) then
@@ -700 +700 @@
 
 c$OMP MASTER
+      if (mpi_rank==0.AND.conser) THEN
+         WRITE(lunout,*) 'leapfrog_loc, Time step: ',itau,' Day:',time
+      ENDIF
       call VTe(VTcaldyn)
 c$OMP END MASTER