Ignore:
Timestamp:
Mar 27, 2003, 2:46:13 PM (22 years ago)
Author:
lmdzadmin
Message:

Du menage pour avoir moins de print dans les sorties
LF

Location:
LMDZ.3.3/branches/rel-LF/libf/dyn3d
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/bilan_dyn.F

    r452 r459  
    324324      endif
    325325
    326       print*,'dans bilan_dyn ',icum,'->',icum+1
     326c      print*,'dans bilan_dyn ',icum,'->',icum+1
    327327      icum=icum+1
    328328
     
    390390      enddo
    391391 
    392       print*,'Apres les calculs fait a chaque pas'
     392c      print*,'Apres les calculs fait a chaque pas'
    393393c=====================================================================
    394394c   PAS DE TEMPS D'ECRITURE
  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F

    r431 r459  
    135135      REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
    136136      CHARACTER*15 ztit
    137       INTEGER   ip_ebil  ! PRINT level for energy conserv. diag.
    138       SAVE      ip_ebil
    139       DATA      ip_ebil/1/
     137      INTEGER   ip_ebil_dyn  ! PRINT level for energy conserv. diag.
     138      SAVE      ip_ebil_dyn
     139      DATA      ip_ebil_dyn/0/
    140140c-jld
    141141
     
    306306c+jld
    307307C     initialisation constantes thermo utilisees dans diagedyn
    308       IF (ip_ebil.ge.1 ) THEN
     308      IF (ip_ebil_dyn.ge.1 ) THEN
    309309        CALL suphec
    310310      ENDIF
     
    514514c       lafin = .true.
    515515c+jld
    516       IF (ip_ebil.ge.1 ) THEN
     516      IF (ip_ebil_dyn.ge.1 ) THEN
    517517          ztit='bil dyn'
    518518          CALL diagedyn(ztit,2,1,1,dtphys
     
    532532c
    533533c+jld
    534       IF (ip_ebil.ge.1 ) THEN
     534      IF (ip_ebil_dyn.ge.1 ) THEN
    535535          ztit='bil phys'
    536536          CALL diagedyn(ztit,2,1,1,dtphys
     
    552552      IF(apdiss) THEN
    553553c+jld
    554       IF (ip_ebil.ge.2 ) THEN
     554      IF (ip_ebil_dyn.ge.2 ) THEN
    555555          ztit='avant dissip'
    556556          CALL diagedyn(ztit,2,2,2,dtvr
     
    582582c+jld
    583583c
    584          IF (ip_ebil.ge.2 ) THEN
     584         IF (ip_ebil_dyn.ge.2 ) THEN
    585585             ztit='apres dissip'
    586586             CALL diagedyn(ztit,2,2,2,dtdiss
Note: See TracChangeset for help on using the changeset viewer.