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

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_surface.F90 (modified) (4 diffs)

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

@@ -18 +18 @@
        character*10 varname
 
-       real tmp_dyn(iip1,jjp1)
-       real tmp_dyn_glo(nbp_lon+1,nbp_lat)
+       REAL tmp_dyn(iip1,jjp1)
+       REAL tmp_dyn_glo(nbp_lon+1,nbp_lat)
        REAL tmp_dyn_invers(iip1,jjp1)
-       real tmp_dyn_invers_glo(nbp_lon+1,nbp_lat)
-       real tmp_fi(klon)
-       real tmp_fi_glo(klon_glo)
-       real surfa(klon,5)
-       real surfa_glo(klon_glo,5)
+       REAL tmp_dyn_invers_glo(nbp_lon+1,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
-       integer rcode
-       integer start(2),count(2),status
-       integer i,j,l,ig
+       INTEGER ncid
+       INTEGER varid
+       INTEGER rcode
+       INTEGER start(2),count(2),status
+       INTEGER i,j,l,ig
        character*1 str1
 
 !JE20140526<<
       character*4 ::  latstr,aux4s
-      logical :: outcycle, isinversed
-      real, dimension(jjp1) :: lats
-      real, dimension(nbp_lat) :: lats_glo
+      LOGICAL :: outcycle, isinversed
+      REAL, DIMENSION(jjp1) :: lats
+      REAL, DIMENSION(nbp_lat) :: lats_glo
       REAL :: rcode2
-      integer, dimension(1) :: startj,endj
+      INTEGER, DIMENSION(1) :: startj,endj
 !JE20140526>>
 !$OMP MASTER
@@ -53 +53 @@
       isinversed=.FALSE.
       do i=1,5
-       if (i==1) aux4s='latu'
-       if (i==2) aux4s='LATU'
-       if (i==3) aux4s='LatU'
-       if (i==4) aux4s='Latu'
-       if (i==5) aux4s='latU'
+       IF (i==1) aux4s='latu'
+       IF (i==2) aux4s='LATU'
+       IF (i==3) aux4s='LatU'
+       IF (i==4) aux4s='Latu'
+       IF (i==5) aux4s='latU'
        status = nf90_inq_varid (ncid, aux4s, rcode)
 !       print *,'stat,i',status,i,outcycle,aux4s
 !       print *,'ifclause',status.NE. nf90_noerr ,outcycle == .FALSE.
-       IF ((.not.(status/= nf90_noerr) ).and.( .not. outcycle )) THEN
+       IF ((.NOT.(status/= nf90_noerr) ).AND.( .NOT. outcycle )) THEN
          outcycle=.TRUE.
          latstr=aux4s
@@ -78 +78 @@
 
 ! check if netcdf is latitude inversed or not. 
-      if (lats_glo(1)<lats_glo(2)) isinversed=.TRUE.
+      IF (lats_glo(1)<lats_glo(2)) isinversed=.TRUE.
 ! JE20140526>>
 
@@ -118 +118 @@
 !JE20140526<<
 !              CALL gr_dyn_fi(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
-           if (isinversed) THEN
+           IF (isinversed) THEN
                         CALL gr_dyn_fi(1, nbp_lon+1, nbp_lat, klon_glo, &
    tmp_dyn_invers_glo, tmp_fi_glo)