Changeset 3360 for LMDZ6/trunk/libf/phylmd/cosp2

Timestamp:

Jul 4, 2018, 4:53:47 PM (6 years ago)

Author:

idelkadi

Message:

Implementation COSPv2 dans LMDZ.

File:

• LMDZ6/trunk/libf/phylmd/cosp2/phys_cosp2.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/cosp2/phys_cosp2.F90

@@ -123 +123 @@
   integer, save :: Nlevels      ! Number of levels
   Integer :: Nptslmdz,Nlevlmdz ! Nb de points issus de physiq.F
-  integer, save :: Nlvgrid          ! Number of levels in statistical outputs
+  integer, save :: Nlr          ! Number of levels in statistical outputs
   integer, save :: Npoints_it   ! Max number of gridpoints to be processed in one iteration
 !  integer :: i
@@ -183 +183 @@
 
    namelist/COSP_INPUT/overlap,isccp_topheight,isccp_topheight_direction, &
-              npoints_it,ncolumns,use_vgrid,Nlvgrid,csat_vgrid, &
+              npoints_it,ncolumns,use_vgrid,Nlr,csat_vgrid, &
               radar_freq,surface_radar,use_mie_tables, &
               use_gas_abs,do_ray,melt_lay,k2,Nprmts_max_hydro,Naero,Nprmts_max_aero, &
@@ -215 +215 @@
     CALL bcast(ncolumns)
     CALL bcast(use_vgrid)
-    CALL bcast(Nlvgrid)
+    CALL bcast(Nlr)
     CALL bcast(csat_vgrid)
     CALL bcast(radar_freq)
@@ -386 +386 @@
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 !        print *, 'Defining new vertical grid...'
-        call construct_cosp_vgrid(gbx,Nlvgrid,use_vgrid,csat_vgrid,vgrid)
-        print*,'Nlvgrid,use_vgrid,csat_vgrid ',Nlvgrid,use_vgrid,csat_vgrid
+        call construct_cosp_vgrid(gbx,Nlr,use_vgrid,csat_vgrid,vgrid)
+        print*,'Nlvgrid,use_vgrid,csat_vgrid ',Nlr,use_vgrid,csat_vgrid
         print*,'vgrid%z, vgrid%mz ',vgrid%z, vgrid%mz
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++