Changeset 2616 for LMDZ5/trunk

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.

Location:

LMDZ5/trunk/libf/dyn3dmem

Files:

• advect_new_loc.F (modified) (1 diff)
• leapfrog_loc.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3dmem/advect_new_loc.F

@@ -61 +61 @@
 c   -------------------------
       
-      IF (conser)  THEN
+      IF (conser.AND.1==0)  THEN
          deuxjour = 2. * daysec
 

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