Changeset 4033 for LMDZ6/trunk/libf/phylmdiso/phys_output_write_mod.F90

Timestamp:

Nov 30, 2021, 2:00:13 PM (3 years ago)

Author:

crisi

Message:

nettoyage de sorties ecran

File:

• LMDZ6/trunk/libf/phylmdiso/phys_output_write_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmdiso/phys_output_write_mod.F90

@@ -2530 +2530 @@
 
 #ifdef ISO
-    write(*,*) 'phys_output_write_mod 1745'
-        write(*,*) 'o_precip=',o_precip
     do ixt=1,ntraciso
         write(*,*) 'ixt'
-        write(*,*) 'o_xtprecip(ixt)=',ixt,o_xtprecip(ixt)
         IF (vars_defined) THEN
              zx_tmp_fi2d(:) = xtrain_fall(ixt,:) + xtsnow_fall(ixt,:)
@@ -2540 +2537 @@
         CALL histwrite_phy(o_xtprecip(ixt), zx_tmp_fi2d)
 
-    write(*,*) 'phys_output_write_mod 2409'
         IF (vars_defined) THEN
              zx_tmp_fi2d(:) = xtrain_lsc(ixt,:) + xtsnow_lsc(ixt,:)
@@ -2560 +2556 @@
         CALL histwrite_phy(o_xtcond(ixt), zx_tmp_fi3d)
 
-        write(*,*) 'phys_output_write_mod 2429'
         CALL histwrite_phy(o_dxtdyn(ixt), d_xt_dyn(ixt,:,:))
         CALL histwrite_phy(o_dxtldyn(ixt), d_xtl_dyn(ixt,:,:))
-        write(*,*) 'phys_output_write_mod 2432'
 
         IF (vars_defined) THEN
@@ -2569 +2563 @@
         ENDIF
         CALL histwrite_phy(o_dxtcon(ixt), zx_tmp_fi3d)
-        write(*,*) 'phys_output_write_mod 2438'
 
         IF (vars_defined) THEN