Changeset 66 for trunk/libf/phylmd/conf_phys.F90

Timestamp:

Feb 16, 2011, 4:57:45 PM (14 years ago)

Author:

emillour

Message:

EM: Mise a niveau par rapport a la version terrestre (LMDZ5V2.0-dev, rev 1487)

• Mise a jour des scripts (terrestres) 'makegcm' et 'create_make_gcm'
• Ajout du script 'makelmdz' (version "amelioree", en Bash, de makegcm)
• Mise a jour des routines dans phylmd (sauf regr_lat_time_climoz_m.F)

• disvert (dans dyn3d et dyn3dpar): passage au Fortran 90
• parallel.F90 (dyn3dpar): correction bug
• etat0_netcdf.F90 (dyn3d et dyn3dpar) : mise a jour mineure
• ce0l.F90 (dyn3dpar) : correction bug
• abort_gcm.F (dyn3dpar) : correction bug
• ugeostr.F90 (dyn3d et dyn3dpar) : passage au Fortran 90
• fluxstokenc_p.F (dyn3dpar) : correction bug
• iniacademic.F90 (dyn3d et dyn3dpar) : passage au Fortran 90
• friction_p.F (dyn3dpar) : correction bug
• infotrac.F90 (dyn3d et dyn3dpar) : correction bug mineur sur lecture traceurs
• caladvtrac.F (dyn3d) : modifications cosmetiques

File:

• trunk/libf/phylmd/conf_phys.F90 (modified) (6 diffs)

trunk/libf/phylmd/conf_phys.F90

@@ -1 +1 @@
 
 !
-! $Id: conf_phys.F90 1423 2010-08-02 14:52:29Z jghattas $
+! $Id: conf_phys.F90 1486 2011-02-11 12:07:39Z fairhead $
 !
 !
@@ -13 +13 @@
   subroutine conf_phys(ok_journe, ok_mensuel, ok_instan, ok_hf, &
                        ok_LES,&
+                       callstats,&
                        solarlong0,seuil_inversion, &
                        fact_cldcon, facttemps,ok_newmicro,iflag_radia,&
@@ -66 +67 @@
   logical              :: ok_journe, ok_mensuel, ok_instan, ok_hf
   logical              :: ok_LES
+  LOGICAL              :: callstats
   LOGICAL              :: ok_ade, ok_aie, aerosol_couple
   INTEGER              :: flag_aerosol
@@ -79 +81 @@
   logical,SAVE        :: ok_journe_omp, ok_mensuel_omp, ok_instan_omp, ok_hf_omp        
   logical,SAVE        :: ok_LES_omp   
+  LOGICAL,SAVE        :: callstats_omp
   LOGICAL,SAVE        :: ok_ade_omp, ok_aie_omp, aerosol_couple_omp
   INTEGER, SAVE       :: flag_aerosol_omp
@@ -1418 +1421 @@
   ok_LES_omp = .false.                                              
   call getin('OK_LES', ok_LES_omp)                                  
+
+!Config Key  = callstats                                               
+!Config Desc = Pour des sorties callstats                                 
+!Config Def  = .false.                                              
+!Config Help = Pour creer le fichier stats contenant les sorties  
+!              stats                                                  
+!                                                                   
+  callstats_omp = .false.                                              
+  call getin('callstats', callstats_omp)                                  
 !
 !Config Key  = ecrit_LES
@@ -1581 +1593 @@
     ok_hines = ok_hines_omp
     ok_LES = ok_LES_omp
+    callstats = callstats_omp
     ecrit_LES = ecrit_LES_omp
     carbon_cycle_tr = carbon_cycle_tr_omp