Changeset 1535 for LMDZ4/branches/LMDZ4_AR5/libf/cosp/phys_cosp.F90

Timestamp:

Jun 3, 2011, 7:29:00 PM (13 years ago)

Author:

musat

Message:

Ajout flag LOGICAL lCOSP necessaire pour sortir un fichier stations
IM

File:

• LMDZ4/branches/LMDZ4_AR5/libf/cosp/phys_cosp.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4_AR5/libf/cosp/phys_cosp.F90

@@ -1 +1 @@
 ! Simulateur COSP : Cfmip Observation Simulator Package
-
 ! ISCCP, Radar (QuickBeam), Lidar et Parasol (ACTSIM), MISR, RTTOVS
 !Idelkadi Abderrahmane Aout-Septembre 2009
+
 
   subroutine phys_cosp( itap,dtime,freq_cosp, &
@@ -148 +148 @@
   integer                         :: itap,k,ip
   real                            :: dtime,freq_cosp
+  logical, parameter              :: lCOSP=.FALSE.
 
 !