Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/calbeta_clim.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 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/calbeta_clim.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/calbeta_clim.F90

@@ -16 +16 @@
 
   IMPLICIT NONE
-  integer klon,nt,j,it
-  real logbeta(klon),pi
-  real lat(klon),lat_radian(klon)
-  integer time
-  real time_radian
-  real lat_sahel,beta(klon)
-  real lat_nord,lat_sud
+  INTEGER klon,nt,j,it
+  REAL logbeta(klon),pi
+  REAL lat(klon),lat_radian(klon)
+  INTEGER time
+  REAL time_radian
+  REAL lat_sahel,beta(klon)
+  REAL lat_nord,lat_sud
 
   !==============================================
@@ -34 +34 @@
   time_radian=(time+15.)*2.*pi / year_len
 
-  if (prt_level >= 1) print *, 'time_radian time', time_radian, time
+  IF (prt_level >= 1) print *, 'time_radian time', time_radian, time
 
   lat(:)=180.*lat_radian(:)/pi !lat(:)=lat_radian(:)
@@ -43 +43 @@
   do j=1,klon
      !===========
-     if (lat(j) < 5. ) THEN
+     IF (lat(j) < 5. ) THEN
         logbeta(j)=0.2*(lat(j)-lat_sud)-1.6
         beta(j)=10**(logbeta(j))