Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/iotd_ini.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/phylmd/iotd_ini.F90 (modified) (4 diffs)

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

@@ -51 +51 @@
       iotd_ts=timestep
       iotd_t0=t0
-      print*,'iotd_ini, ',timestep,iotd_ts
+      PRINT*,'iotd_ini, ',timestep,iotd_ts
       imax=iim
       jmax=jjm
@@ -65 +65 @@
       ! dans iotd.def
       ! Si iotd.def existe et est non vide,
-      ! seules les variables faisant à la fois l'objet d'un call iotd_ecrit
+      ! seules les variables faisant à la fois l'objet d'un CALL iotd_ecrit
       ! et étant spécifiées dans iotd.def sont sorties.
-      ! Sinon, toutes les variables faisant l'objet d'un call iotd_ecrit
+      ! Sinon, toutes les variables faisant l'objet d'un CALL iotd_ecrit
       ! sont sorties
       !-----------------------------------------------------------------------
@@ -82 +82 @@
             enddo
          endif
-         print*,n_names_iotd_def,names_iotd_def(1:n_names_iotd_def)
+         PRINT*,n_names_iotd_def,names_iotd_def(1:n_names_iotd_def)
       close(99)
 
@@ -114 +114 @@
       ierr=nf90_enddef(nid)
       ierr=nf90_put_var(nid,nvarid,rlon)
-       print*,ierr
+       PRINT*,ierr
 
 ! ---- latitude ------------