Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_surface.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 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/phylmd/Dust/read_surface.F90 (modified) (7 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_surface.F90

@@ -5 +5 @@
 ! ------
        USE ioipsl
-!       USE comgeomphy
        USE dimphy
        USE mod_grid_phy_lmdz
        USE mod_phys_lmdz_para
        USE iophy
-       USE netcdf, ONLY:nf90_inq_varid,nf90_noerr,nf90_get_var
+       USE netcdf, ONLY:nf90_inq_varid,nf90_noerr,nf90_get_var,nf90_nowrite,nf90_inq_varid,nf90_open
        IMPLICIT NONE
 
@@ -18 +17 @@
        character*10 name
        character*10 varname
-!
+
        real tmp_dyn(iip1,jjp1)
        real tmp_dyn_glo(nbp_lon+1,nbp_lat)
-!       real tmp_dyn_glo(nbp_lon,nbp_lat)
        REAL tmp_dyn_invers(iip1,jjp1)
        real tmp_dyn_invers_glo(nbp_lon+1,nbp_lat)
-!       real tmp_dyn_invers_glo(nbp_lon,nbp_lat)
        real tmp_fi(klon)
        real tmp_fi_glo(klon_glo)
        real surfa(klon,5)
        real surfa_glo(klon_glo,5)
-!
+
        integer ncid
        integer varid
-       real rcode
+       integer rcode
        integer start(2),count(2),status
        integer i,j,l,ig
@@ -49 +46 @@
 
        print*,'Lecture du fichier donnees_lisa.nc' 
-       ncid=NCOPN('donnees_lisa.nc',NCNOWRIT,rcode)
+       ncid=nf90_open('donnees_lisa.nc',nf90_nowrite,rcode)
 
 !JE20140526<<: check if are inversed or not the latitude grid in donnes_lisa
@@ -72 +69 @@
 !      endj(1)=jjp1
       endj(1)=nbp_lat
-      varid=NCVID(ncid,latstr,rcode)
+      varid=nf90_inq_varid(ncid,latstr,rcode)
 
           status=nf90_get_var(ncid,varid,lats_glo,startj,endj)
@@ -89 +86 @@
           varname=trim(name)//str1
        print*,'lecture variable:',varname
-          varid=NCVID(ncid,trim(varname),rcode)
-!          varid=NCVID(ncid,varname,rcode)
+          varid=nf90_inq_varid(ncid,trim(varname),rcode)
 
 !  dimensions pour les champs scalaires et le vent zonal
@@ -135 +131 @@
 !JE20140526>>
 !      call dump2d(iim,jjm-1,tmp_fi(2),'tmp_fi   ')
-!
+
           DO j=1,klon_glo
 
@@ -141 +137 @@
 
           ENDDO ! Fin de recopie du tableau
-!
+
        ENDDO ! Fin boucle 1 a 5
        print*,'Passage Grille Dyn -> Phys'