Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90

@@ -1 @@
-!
+
 ! $Id: $
-!
+
 ! This subroutine creates the grilles_gcm.nc file, containing:
 ! -> longitudes and latitudes in degrees for dynamical grids u, v and scalaire,
@@ -7 +7 @@
 ! -> vertical levels "presnivs"
 ! -> mask (land/sea), area (grid), phis=surface geopotential height = phis/g
-!
+
 ! The subroutine is called in dynphy_lonlat/phylmd/ce0l.F90.
 
@@ -37 +37 @@
   INTEGER out_latudim,out_latvdim,out_dim(2)
   INTEGER out_levdim
-  !
+
   INTEGER :: presnivs_id
   INTEGER :: mask_id,area_id,phis_id
-  !
+
   INTEGER start(2),COUNT(2)
 
@@ -47 +47 @@
   REAL rlonudeg(iip1),rlonvdeg(iip1)
   REAL uwnd(iip1,jjp1),vwnd(iip1,jjm),temp(iip1,jjp1) 
-  !
+
   INTEGER masque_int(iip1,jjp1)
   REAL :: phis_loc(iip1,jjp1)
@@ -115 +115 @@
   status=nf90_def_dim(ncid_out,'latv',jjm,out_latvdim)
   CALL handle_err(status)
-  !
+
   status=nf90_def_dim(ncid_out,'lev',llm,out_levdim)
   CALL handle_err(status)
@@ -162 +162 @@
   status=nf90_put_att(ncid_out,out_tempid,'units','Kelvin')
   status=nf90_put_att(ncid_out,out_tempid,'long_name','scalar dynamical grid')
-  !
+
   ! for INCA :
   ! vertical levels "presnivs"