Changeset 1368 for LMDZ4/trunk/libf/cosp/phys_cosp.F90

Timestamp:

Apr 22, 2010, 12:46:16 PM (14 years ago)

Author:

idelkadi

Message:

• Rajout des cles logiques pour activer les sorties COSP par frequence
• Reglages des niveaux de sorties pour les variables CFMIP

File:

• LMDZ4/trunk/libf/cosp/phys_cosp.F90 (modified) (4 diffs)

LMDZ4/trunk/libf/cosp/phys_cosp.F90

@@ -4 +4 @@
 
 
-  subroutine phys_cosp( itap,dtime,freq_cosp,ecrit_mth,ecrit_day,ecrit_hf, &
-                        overlaplmdz,Nptslmdz,Nlevlmdz,lon,lat, presnivs, &
+  subroutine phys_cosp( itap,dtime,freq_cosp, &
+                        ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
+                        ecrit_mth,ecrit_day,ecrit_hf, &
+                        Nptslmdz,Nlevlmdz,lon,lat, presnivs,overlaplmdz, &
                         ref_liq,ref_ice,fracTerLic,u_wind,v_wind,phi,ph,p,skt,t, &
                         sh,rh,tca,cca,mr_lsliq,mr_lsice,fl_lsrainI,fl_lssnowI, &
@@ -117 +119 @@
   integer :: ii,idayref
   real    :: zjulian,zstoday,zstomth,zstohf,zout,ecrit_day,ecrit_hf,ecrit_mth
+  logical :: ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP
   integer :: nhori,nvert,nvertp,nvertisccp,nvertm,nvertcol
   integer, save :: nid_day_cosp,nid_mth_cosp,nid_hf_cosp
@@ -326 +329 @@
         enddo
 
+ if (ok_mensuelCOSP) then
      include "ini_histmthCOSP.h"
+ endif
+ if (ok_journeCOSP) then
      include "ini_histdayCOSP.h"
+ endif
+ if (ok_hfCOSP) then
      include "ini_histhfCOSP.h"
-
+ endif
 
 !   print*,'Fin Initialisation des sorties COSP, debut_cosp =',debut_cosp 
@@ -446 +454 @@
    enddo
 
+ if (ok_mensuelCOSP) then
   include "write_histmthCOSP.h"
+ endif
+ if (ok_journeCOSP) then
   include "write_histdayCOSP.h"
+ endif
+ if (ok_hfCOSP ) then
   include "write_histhfCOSP.h"
-
+ endif
 
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++