Changeset 880 for trunk/LMDZ.GENERIC/libf

Timestamp:

Feb 13, 2013, 10:00:46 AM (12 years ago)

Author:

aslmd

Message:

LMDZ.UNIVERSAL. LMDZ.GENERIC. Added def files for saturn. Made physics less verbose: only master proc (with cursor=1) talks to the user.

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq.F90 (modified) (4 diffs)

trunk/LMDZ.GENERIC/libf/phystd/physiq.F90

@@ -936 +936 @@
          endif
 
-      print*,'end TURBULENCE'
       endif ! of if (calldifv)
 
@@ -1392 +1391 @@
       if(callsoil)then
          TsS = SUM(area(:)*tsoil(:,nsoilmx))/totarea        ! mean temperature at bottom soil layer
-         print*,'  ave[Tsurf]     min[Tsurf]     max[Tsurf]     ave[Tdeep]'
-         print*,Ts1,Ts2,Ts3,TsS
-      else
-         print*,'  ave[Tsurf]     min[Tsurf]     max[Tsurf]'
-         print*,Ts1,Ts2,Ts3
+         if (cursor == 1) then
+           print*,'  ave[Tsurf]     min[Tsurf]     max[Tsurf]     ave[Tdeep]'
+           print*,Ts1,Ts2,Ts3,TsS
+         endif
       endif
 
@@ -1426 +1424 @@
          endif
 
-         print*,'  ISR            ASR            OLR            GND            DYN [W m^-2]'
-         print*, ISR,ASR,OLR,GND,DYN
-         
          if(enertest)then
+            print*,'  ISR            ASR            OLR            GND            DYN [W m^-2]'
+            print*, ISR,ASR,OLR,GND,DYN
             print*,'SW flux/heating difference SW++ - ASR = ',dEtotSW+dEtotsSW-ASR,' W m-2'
             print*,'LW flux/heating difference LW++ - OLR = ',dEtotLW+dEtotsLW+OLR,' W m-2'
@@ -1543 +1540 @@
       endif
 
-
-         print*,''
-         print*,'--> Ls =',zls*180./pi
+         if (cursor == 1) then
+           print*,'--> Ls =',zls*180./pi
+         endif
 !        -------------------------------------------------------------------
 !        Writing NetCDF file  "RESTARTFI" at the end of the run