Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/ce0l.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/dynphy_lonlat/phylmd/ce0l.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/ce0l.F90

@@ -1 +1 @@
 PROGRAM ce0l
-!
+
 !-------------------------------------------------------------------------------
 ! Purpose: Initial states and boundary conditions files creation:
@@ -21 +21 @@
   USE etat0phys,      ONLY: etat0phys_netcdf
   USE limit,          ONLY: limit_netcdf
-  USE netcdf,         ONLY: NF90_OPEN, NF90_NOWRITE, NF90_CLOSE, NF90_NOERR,    &
-         NF90_INQUIRE_DIMENSION, nf90_inq_dimid, NF90_INQ_VARID, NF90_GET_VAR
+  USE netcdf,         ONLY: NF90_OPEN, NF90_NOWRITE, NF90_CLOSE, nf90_noerr,    &
+         nf90_inquire_dimension, nf90_inq_dimid, NF90_INQ_VARID, nf90_get_var
   USE infotrac,       ONLY: init_infotrac
   USE dimphy,         ONLY: klon
@@ -154 +154 @@
 ! weights to ensure ocean fractions are the same for atmosphere and ocean.
 !*******************************************************************************
-  IF(NF90_OPEN("o2a.nc", NF90_NOWRITE, nid_o2a)==NF90_NOERR) THEN
+  IF(NF90_OPEN("o2a.nc", NF90_NOWRITE, nid_o2a)==nf90_noerr) THEN
     iret=NF90_CLOSE(nid_o2a)
     WRITE(lunout,*)'BEWARE !! Ocean mask "o2a.nc" file found'
@@ -188 +188 @@
     masque(iip1 ,:)=masque(1,:)
     DEALLOCATE(ocemask)
-  ELSE IF(NF90_OPEN("startphy0.nc", NF90_NOWRITE, nid_sta)==NF90_NOERR) THEN
+  ELSE IF(NF90_OPEN("startphy0.nc", NF90_NOWRITE, nid_sta)==nf90_noerr) THEN
     WRITE(lunout,*)'BEWARE !! File "startphy0.nc" found.'
     WRITE(lunout,*)'Getting the land mask from a previous run.'
     iret=nf90_inq_dimid(nid_sta,'points_physiques',nid_nph)
-    iret=NF90_INQUIRE_DIMENSION(nid_sta,nid_nph,len=nphys)
+    iret=nf90_inquire_dimension(nid_sta,nid_nph,len=nphys)
     IF(nphys/=klon) THEN
       WRITE(lunout,*)'Mismatching dimensions for land mask'
@@ -201 +201 @@
     ALLOCATE(masktmp(klon))
     iret=NF90_INQ_VARID(nid_sta,'masque',nid_msk)
-    iret=NF90_GET_VAR(nid_sta,nid_msk,masktmp)
+    iret=nf90_get_var(nid_sta,nid_msk,masktmp)
     iret=NF90_CLOSE(nid_sta)
     CALL gr_fi_dyn(1,klon,iip1,jjp1,masktmp,masque)
@@ -253 +253 @@
 
 END PROGRAM ce0l
-!
-!-------------------------------------------------------------------------------
+
+!-------------------------------------------------------------------------------