Changeset 459 for LMDZ.3.3/branches/rel-LF/libf

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:

• bilan_dyn.F (modified) (2 diffs)
• gcm.F (modified) (6 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/bilan_dyn.F

@@ -324 +324 @@
       endif
 
-      print*,'dans bilan_dyn ',icum,'->',icum+1
+c      print*,'dans bilan_dyn ',icum,'->',icum+1
       icum=icum+1
 
@@ -390 +390 @@
       enddo
  
-      print*,'Apres les calculs fait a chaque pas'
+c      print*,'Apres les calculs fait a chaque pas'
 c=====================================================================
 c   PAS DE TEMPS D'ECRITURE

LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F

@@ -135 +135 @@
       REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
       CHARACTER*15 ztit
-      INTEGER   ip_ebil  ! PRINT level for energy conserv. diag.
-      SAVE      ip_ebil
-      DATA      ip_ebil/1/
+      INTEGER   ip_ebil_dyn  ! PRINT level for energy conserv. diag.
+      SAVE      ip_ebil_dyn
+      DATA      ip_ebil_dyn/0/
 c-jld 
 
@@ -306 +306 @@
 c+jld
 C     initialisation constantes thermo utilisees dans diagedyn
-      IF (ip_ebil.ge.1 ) THEN
+      IF (ip_ebil_dyn.ge.1 ) THEN
         CALL suphec
       ENDIF 
@@ -514 +514 @@
 c       lafin = .true.
 c+jld
-      IF (ip_ebil.ge.1 ) THEN 
+      IF (ip_ebil_dyn.ge.1 ) THEN 
           ztit='bil dyn'
           CALL diagedyn(ztit,2,1,1,dtphys
@@ -532 +532 @@
 c
 c+jld
-      IF (ip_ebil.ge.1 ) THEN 
+      IF (ip_ebil_dyn.ge.1 ) THEN 
           ztit='bil phys'
           CALL diagedyn(ztit,2,1,1,dtphys
@@ -552 +552 @@
       IF(apdiss) THEN
 c+jld
-      IF (ip_ebil.ge.2 ) THEN 
+      IF (ip_ebil_dyn.ge.2 ) THEN 
           ztit='avant dissip'
           CALL diagedyn(ztit,2,2,2,dtvr
@@ -582 +582 @@
 c+jld
 c
-         IF (ip_ebil.ge.2 ) THEN 
+         IF (ip_ebil_dyn.ge.2 ) THEN 
              ztit='apres dissip'
              CALL diagedyn(ztit,2,2,2,dtdiss