Changeset 2428 for LMDZ5/trunk/libf/phylmd/cosp/pf_to_mr.F

Timestamp:

Jan 27, 2016, 10:42:32 AM (9 years ago)

Author:

idelkadi

Message:

Mise a jour du simulateur COSP (passage de la version v3.2 a la version v1.4) :

• mise a jour des sources pour ISCCP, CALIPSO et PARASOL
• prise en compte des changements de phases pour les nuages (Calipso)
• rajout de plusieurs diagnostiques (fraction nuageuse en fonction de la temperature, ...)

http://lmdz.lmd.jussieu.fr/Members/aidelkadi/cosp

File:

• LMDZ5/trunk/libf/phylmd/cosp/pf_to_mr.F (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/cosp/pf_to_mr.F

@@ -1 +1 @@
 ! (c) 2008, Lawrence Livermore National Security Limited Liability Corporation.
 ! All rights reserved.
+! $Revision: 23 $, $Date: 2011-03-31 15:41:37 +0200 (jeu. 31 mars 2011) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/llnl/pf_to_mr.f $
 ! 
 ! Redistribution and use in source and binary forms, with or without modification, are permitted 
@@ -35 +37 @@
       INTEGER ncol          !  number of subcolumns
 
-      INTEGER i,j,ilev,ibox
+      INTEGER j,ilev,ibox
       
-      REAL rain_ls(npoints,nlev),snow_ls(npoints,nlev) ! large-scale precipitation flux
+      REAL rain_ls(npoints,nlev),snow_ls(npoints,nlev) ! large-scale precip. flux
       REAL grpl_ls(npoints,nlev)
-      REAL rain_cv(npoints,nlev),snow_cv(npoints,nlev) ! convective precipitation flux
+      REAL rain_cv(npoints,nlev),snow_cv(npoints,nlev) ! convective precip. flux
 
       REAL prec_frac(npoints,ncol,nlev) ! 0 -> clear sky
@@ -54 +56 @@
       REAL term1x2r,term1x2s,term1x2g,t123r,t123s,t123g
       
-      ! method from Khairoutdinov and Randall (2003 JAS)                
+      ! method from Khairoutdinov and Randall (2003 JAS)
 
       ! --- List of constants from Appendix B