Changeset 2428 for LMDZ5/trunk/libf/phylmd/cosp/math_lib.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/math_lib.F90 (modified) (2 diffs)

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

@@ +1 @@
+! $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/quickbeam/math_lib.f90 $
 ! MATH_LIB: Mathematics procedures for F90
 ! Compiled/Modified:
@@ -42 +44 @@
   integer :: k,m1,m
        
-  pi = acos(-1.)        
+  pi = acos(-1.)    
   if (x ==int(x)) then
     if (x > 0.0) then