Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/calfis.f90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 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/dynphy_lonlat/calfis.f90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/calfis.f90

@@ -180 +180 @@
     debut = .TRUE.
     IF (ngridmx/=2+(jjm-1)*iim) THEN
-     write(lunout,*) 'STOP dans calfis'
-     write(lunout,*) &
+     WRITE(lunout,*) 'STOP dans calfis'
+     WRITE(lunout,*) &
            'La dimension ngridmx doit etre egale a 2 + (jjm-1)*iim'
-     write(lunout,*) '  ngridmx  jjm   iim   '
-     write(lunout,*) ngridmx,jjm,iim
+     WRITE(lunout,*) '  ngridmx  jjm   iim   '
+     WRITE(lunout,*) ngridmx,jjm,iim
      CALL abort_gcm("calfis", "", 1)
     ENDIF
@@ -299 +299 @@
   !   convergence dynamique pour les traceurs "EAU"
   ! Earth-specific treatment of first 2 tracers (water)
-   if (planet_type=="earth") then
+   if (planet_type=="earth") THEN
     DO iq=1,2
      DO l=1,llm
@@ -467 +467 @@
 
 
-   ! write(lunout,*) 'PHYSIQUE AVEC NSPLIT_PHYS=',nsplit_phys
+   ! WRITE(lunout,*) 'PHYSIQUE AVEC NSPLIT_PHYS=',nsplit_phys
   zdt_split=dtphys/nsplit_phys
   zdufic(:,:)=0.
@@ -482 +482 @@
      lafin_split=lafin.and.isplit==nsplit_phys
 
-   ! if (planet_type=="earth") then
+   ! if (planet_type=="earth") THEN
     CALL call_physiq(ngridmx,llm,nqtot,tracers(:)%name, &
           debut_split,lafin_split, &
@@ -493 +493 @@
           zdufi,zdvfi,zdtfi,zdqfi,zdpsrf)
 
-   ! else if ( planet_type=="generic" ) then
-
+   ! else if ( planet_type=="generic" ) THEN
    !    CALL physiq (ngridmx,     !! ngrid
   ! .             llm,            !! nlayer