Changeset 1924 for LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Jan 8, 2014, 3:41:30 PM (10 years ago)

Author:

idelkadi

Message:

• Rajout de nouveaux diagnostiques pour la comparaison entre les fractions nuageuses sorties derictement dans LMDZ et celles sorties via le simulateur ISCCP. Routines concernees : physiq.F90, phys_output_ctrlout_mod.F90, phys_local_var_mod.F90 et phys_output_write_mod.F90

• Rajout de la fraction d'ensoleillement par jour aux arguments de l'interface avec Cosp (entree pour le simulateur ISCCP). Routine concernée : physiq.F90

File:

• LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (5 diffs)

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -200 +200 @@
       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cldh, cldl, cldm, cldq, cldt, qsat2m, qsol
 !$OMP THREADPRIVATE(cldh, cldl, cldm, cldq, cldt, qsat2m, qsol)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cldhjn, cldljn, cldmjn,cldtjn
+!$OMP THREADPRIVATE(cldhjn, cldljn, cldmjn, cldtjn)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: JrNt
+!$OMP THREADPRIVATE(JrNt)
       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: dthmin, evap, fder, plcl, plfc, prw
 !$OMP THREADPRIVATE(dthmin, evap, fder, plcl, plfc, prw)
@@ -263 +267 @@
       REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: beta_prec
 !$OMP THREADPRIVATE(beta_prec)
-      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: rneb
-!$OMP THREADPRIVATE(rneb)
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: rneb,rnebjn
+!$OMP THREADPRIVATE(rneb,rnebjn)
 
 ! variables de sorties MM
@@ -373 +377 @@
       ALLOCATE(cdragm(klon), cdragh(klon), cldh(klon), cldl(klon))
       ALLOCATE(cldm(klon), cldq(klon), cldt(klon), qsat2m(klon), qsol(klon))
+      ALLOCATE(cldhjn(klon), cldljn(klon), cldmjn(klon), cldtjn(klon))
+      ALLOCATE(JrNt(klon))
       ALLOCATE(dthmin(klon), evap(klon), fder(klon), plcl(klon), plfc(klon))
       ALLOCATE(prw(klon), zustar(klon), zu10m(klon), zv10m(klon), rh2m(klon))
@@ -420 +426 @@
       ALLOCATE(wdtrainA(klon,klev),wdtrainM(klon,klev))
       ALLOCATE(beta_prec(klon,klev))
-      ALLOCATE(rneb(klon,klev))
+      ALLOCATE(rneb(klon,klev),rnebjn(klon,klev))
 
 
@@ -524 +530 @@
       DEALLOCATE(cdragm, cdragh, cldh, cldl)
       DEALLOCATE(cldm, cldq, cldt, qsat2m, qsol)
+      DEALLOCATE(cldljn, cldmjn, cldhjn, cldtjn, JrNt)
       DEALLOCATE(dthmin, evap, fder, plcl, plfc)
       DEALLOCATE(prw, zustar, zu10m, zv10m, rh2m, s_lcl)