Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

Timestamp:

Jul 23, 2024, 3:29:36 PM (8 weeks 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]

File:

• LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90 (modified) (3 diffs)

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