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

Timestamp:

Jan 8, 2014, 3:41:30 PM (11 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/physiq.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -1692 +1692 @@
   ENDIF
 
+! AI Janv 2014 
+        do i = 1, klon
+         if (fract(i).le.0.) then
+            JrNt(i)=0.
+         else
+            JrNt(i)=1.
+         endif
+        enddo
+
   if (mydebug) then
      call writefield_phy('u_seri',u_seri,llm)
@@ -3311 +3320 @@
              ecrit_mth,ecrit_day,ecrit_hf, &
              klon,klev,rlon,rlat,presnivs,overlap, &
-             ref_liq,ref_ice, &
+             fract,ref_liq,ref_ice, &
              pctsrf(:,is_ter)+pctsrf(:,is_lic), &
              zu10m,zv10m,pphis, &