Changeset 2616 for LMDZ5


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dmem/advect_new_loc.F

    r2603 r2616  
    6161c   -------------------------
    6262     
    63       IF (conser)  THEN
     63      IF (conser.AND.1==0)  THEN
    6464         deuxjour = 2. * daysec
    6565

  • LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F

    r2603 r2616  
    472472cym      apphys = .FALSE.
    473473      statcl = .FALSE.
    474       conser = .FALSE. ! ie: no output of control variables to stdout in //
     474!     conser = .FALSE. ! ie: no output of control variables to stdout in //
    475475     
    476476      if (firstCaldyn) then
    … …  
    700700
    701701c$OMP MASTER
     702      if (mpi_rank==0.AND.conser) THEN
     703         WRITE(lunout,*) 'leapfrog_loc, Time step: ',itau,' Day:',time
     704      ENDIF
    702705      call VTe(VTcaldyn)
    703706c$OMP END MASTER     
Note: See TracChangeset for help on using the changeset viewer.