Changeset 2435 for LMDZ5/branches/testing/libf/phylmd/cosp/cosp_misr_simulator.F90

Timestamp:

Jan 28, 2016, 5:02:13 PM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2396:2434 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/cosp/cosp_misr_simulator.F90 (modified) (4 diffs)

LMDZ5/branches/testing/libf/phylmd/cosp/cosp_misr_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_misr_simulator.F90 $
 ! 
 ! Redistribution and use in source and binary forms, with or without modification, are permitted 
@@ -48 +50 @@
   
   ! Local variables 
-  integer :: i,Nlevels,Npoints
+  integer :: Nlevels,Npoints
   real :: dtau_s(gbx%Npoints, gbx%Nlevels)
   real :: dtau_c(gbx%Npoints, gbx%Nlevels)
@@ -58 +60 @@
                                           !  zfull(npoints,1)    is    top level of model
                                           !  zfull(npoints,nlev) is bottom level of model
-  real :: phy_t0p1_mean_ztop              ! mean cloud top height(m) of 0.1 tau treshold
-  real :: fq_phy_t0p1_TAU_v_CTH(7,16)      
      
-        
+    
   Nlevels = gbx%Nlevels
   Npoints = gbx%Npoints
@@ -73 +73 @@
  
   call MISR_simulator(gbx%npoints,gbx%nlevels,gbx%ncolumns,&
-                     sunlit,zfull,at,dtau_s,dtau_c,frac_out, &
+                     sunlit,zfull,at,dtau_s,dtau_c,frac_out, R_UNDEF, &
                      y%fq_MISR,y%MISR_dist_model_layertops,y%MISR_meanztop,y%MISR_cldarea)