Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd

Timestamp:

Jul 23, 2024, 3:29:36 PM (7 months ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

Location:

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd

Files:

• callphysiq_mod.F90 (modified) (3 diffs)
• ce0l.F90 (modified) (2 diffs)
• etat0phys_netcdf.F90 (modified) (3 diffs)
• iniphysiq_mod.F90 (modified) (2 diffs)
• limit_netcdf.f90 (modified) (1 diff)
• test_disvert_m.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/callphysiq_mod.F90

@@ -29 +29 @@
   INTEGER,INTENT(IN) :: nqtot ! number of tracers
   CHARACTER(len=*),INTENT(IN) :: tname(nqtot) ! tracer names
-  LOGICAL,INTENT(IN) :: debut_split ! .true. if very first CALL to physics
-  LOGICAL,INTENT(IN) :: lafin_split ! .true. if last CALL to physics
+  LOGICAL,INTENT(IN) :: debut_split ! .TRUE. if very first CALL to physics
+  LOGICAL,INTENT(IN) :: lafin_split ! .TRUE. if last CALL to physics
   REAL,INTENT(IN) :: JD_cur ! Julian day
   REAL,INTENT(IN) :: JH_cur_split ! Julian hour (fraction of day)
@@ -57 +57 @@
   ! Local variables
   CHARACTER(len=11) :: modname="call_physiq"
-  LOGICAL,SAVE :: firstcall=.true.
+  LOGICAL,SAVE :: firstcall=.TRUE.
 !$OMP THREADPRIVATE(firstcall)
 
@@ -65 +65 @@
       CALL abort_gcm(modname,"wrong planet_type for this physics package",1)
     ENDIF
-    firstcall=.false.
+    firstcall=.FALSE.
   ENDIF
 

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/ce0l.F90

@@ -101 +101 @@
 
 !--- Calendar choice
-#ifdef CPP_IOIPSL
   calnd='gregorian'
   SELECT CASE(calend)
@@ -116 +115 @@
   END SELECT
   WRITE(lunout,*)'CHOSEN CALENDAR: Earth '//TRIM(calnd)
-#endif
 
 #ifdef CPP_PARA

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

@@ -127 +127 @@
   INTEGER :: read_climoz                        !--- Read ozone climatology
   REAL    :: alp_offset
-  LOGICAL :: filtre_oro=.false.
+  LOGICAL :: filtre_oro=.FALSE.
 
   INCLUDE "compbl.h"
@@ -538 +538 @@
   phiso=phis
   do j=2,jmp1-1
-     print*,'avant if ',cos(rlatu(j)),coslat0
+     PRINT*,'avant if ',cos(rlatu(j)),coslat0
      if (cos(rlatu(j))<coslat0) then
          ! nb de pts affectes par le filtrage de part et d'autre du pt
@@ -561 +561 @@
             endif
          enddo
-         print*,'j=',j,coslat0/cos(rlatu(j)), (1.+2.*sum(wwf))*cos(rlatu(j))/coslat0
+         PRINT*,'j=',j,coslat0/cos(rlatu(j)), (1.+2.*sum(wwf))*cos(rlatu(j))/coslat0
      endif
   enddo

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -42 +42 @@
   USE ioipsl_getin_p_mod, ONLY: getin_p
   USE slab_heat_transp_mod, ONLY: ini_slab_transp_geom
-  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
   IMPLICIT NONE
 
@@ -162 +161 @@
 
   IF (ANY(type_trac == ['inca','inco'])) THEN
-  IF (CPPKEY_INCA) THEN
      CALL init_inca_dim_reg(nbp_lon, nbp_lat - 1, &
           rlonudyn, rlatudyn, rlonvdyn, rlatvdyn)
-  END IF
   END IF
 

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/limit_netcdf.f90

@@ -588 +588 @@
         END DO
       ELSE                      !--- AVE   DATA: SPLINE TIME INTERPOLATION
-        skip = .false.
+        skip = .FALSE.
         n_extrap = 0
         ALLOCATE(yder(lmdep + 2))

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/test_disvert_m.F90

@@ -5 +5 @@
 contains
 
-  subroutine test_disvert
+  SUBROUTINE test_disvert
 
     ! Author: Lionel GUEZ
@@ -62 +62 @@
 1000 format (3(a, g10.4, a, i0))
 
-  end subroutine test_disvert
+  END SUBROUTINE  test_disvert
 
 end module test_disvert_m