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

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

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

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

@@ -39 +39 @@
       real, dimension(jjp1) :: lats
       real, dimension(nbp_lat) :: lats_glo
-      real :: rcode2
+      REAL :: rcode2
       integer, dimension(1) :: startj,endj
 !JE20140526>>
@@ -83 +83 @@
 
        DO i=1,5
-          write(str1,'(i1)') i
+          WRITE(str1,'(i1)') i
           varname=trim(name)//str1
        PRINT*,'lecture variable:',varname
@@ -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)