Changeset 3263 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd

Timestamp:

Mar 13, 2018, 3:29:59 PM (7 years ago)

Author:

Laurent Fairhead

Message:

Removing spurious print

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/physiq_mod.F90 (modified) (4 diffs)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/physiq_mod.F90

@@ -3719 +3719 @@
           !
 !IM 251017 begin
-                print*,'physiq betaCRF global zdtime=',zdtime
+!                print*,'physiq betaCRF global zdtime=',zdtime
 !IM 251017 end
           DO k=1, klev
@@ -4802 +4802 @@
 
 ! On remet des variables a .false. apres un premier appel
+      write (lunout,*)'ok_4xCO2atm= ',swaero_diag, swaerofree_diag, dryaod_diag, ok_4xCO2atm
     if (debut) then
 #ifdef CPP_XIOS
@@ -4808 +4809 @@
       dryaod_diag=.FALSE.
       ok_4xCO2atm= .FALSE.
-      write (lunout,*)'ok_4xCO2atm= ',swaero_diag, swaerofree_diag, dryaod_diag, ok_4xCO2atm
 
       IF (is_master) then
@@ -4847 +4847 @@
       call bcast(dryaod_diag)
       call bcast(ok_4xCO2atm)
-      write (lunout,*)'ok_4xCO2atm= ',swaero_diag, swaerofree_diag, dryaod_diag, ok_4xCO2atm
 #endif
     endif
+      write (lunout,*)'ok_4xCO2atm= ',swaero_diag, swaerofree_diag, dryaod_diag, ok_4xCO2atm
 
     !====================================================================