Changeset 2428 for LMDZ5/trunk/libf/phylmd/cosp/cosp_isccp_simulator.F90

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/cosp_isccp_simulator.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/cosp/cosp_isccp_simulator.F90

@@ -1 +1 @@
 ! (c) British Crown Copyright 2008, the Met Office.
 ! 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/cosp_isccp_simulator.F90 $
 ! 
 ! Redistribution and use in source and binary forms, with or without modification, are permitted 
@@ -42 +44 @@
   
   ! Local variables 
-  integer :: i,Nlevels,Npoints
+  integer :: Nlevels,Npoints
   real :: pfull(gbx%Npoints, gbx%Nlevels)
   real :: phalf(gbx%Npoints, gbx%Nlevels + 1)
@@ -84 +86 @@
   y%fq_isccp(:,:,:) = y%fq_isccp(:,:,7:1:-1)
      
-  ! Change boxptop from hPa to Pa. This avoids using UDUNITS in CMOR
-!  y%boxptop = y%boxptop*100.0
-  
+ 
   ! Check if there is any value slightly greater than 1
   where ((y%totalcldarea > 1.0-1.e-5) .and. (y%totalcldarea < 1.0+1.e-5))