Changeset 880

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.

Location:

trunk

Files:

• LMDZ.GENERIC/libf/phystd/physiq.F90 (modified) (4 diffs)
• LMDZ.UNIVERSAL/deftank/PROTO_saturn_strato (added)
• LMDZ.UNIVERSAL/deftank/PROTO_saturn_strato/callphys.def (added)
• LMDZ.UNIVERSAL/deftank/PROTO_saturn_strato/diagfi.def (added)
• LMDZ.UNIVERSAL/deftank/PROTO_saturn_strato/gases.def (added)
• LMDZ.UNIVERSAL/deftank/PROTO_saturn_strato/run.def (added)
• LMDZ.UNIVERSAL/deftank/PROTO_saturn_strato/traceur.def (added)
• LMDZ.UNIVERSAL/deftank/PROTO_saturn_strato/z2sig.def (added)
• LMDZ.UNIVERSAL/deftank/gray_lmdz.generic_lmdz5/launch_lmdz5para (modified) (1 diff)
• LMDZ.UNIVERSAL/deftank/gray_lmdz.generic_lmdz5/run.def (modified) (1 diff)
• LMDZ.UNIVERSAL/deftank/launch.ciclad (added)

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

trunk/LMDZ.UNIVERSAL/deftank/gray_lmdz.generic_lmdz5/launch_lmdz5para

@@ -2 +2 @@
 #PBS -j  oe
 #PBS -q  infini
-#PBS -N  LMDZ5_PARA24
-#PBS -l "nodes=1:ppn=24"
+#PBS -N  LMDZ5_PARA16
+#PBS -l "nodes=1:ppn=16"
 ##PBS -l "mem=64gb"
 

trunk/LMDZ.UNIVERSAL/deftank/gray_lmdz.generic_lmdz5/run.def

@@ -107 +107 @@
 ## sorties instantanees dans la dynamique (fichiers dyn_hist.nc and co.)
 ok_dyn_ins=n
-ok_dyn_ins=y
+#ok_dyn_ins=y
 ## periode d'ecriture des sorties instantanees dans la dynamique
 ## (en pas dynamiques)