Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/replay1d.F90

Timestamp:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/replay1d.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/replay1d.F90

@@ -51 +51 @@
 dayref=1
 anneeref=2000
-call getin('dayref',dayref)
-call getin('anneeref',anneeref)
-call getin('calend',calend)
-call getin('day_step',day_step)
+CALL getin('dayref',dayref)
+CALL getin('anneeref',anneeref)
+CALL getin('calend',calend)
+CALL getin('day_step',day_step)
 calendrier=calend
-if ( calendrier == "earth_360d" ) calendrier="360_day"
+IF ( calendrier == "earth_360d" ) calendrier="360_day"
 
 
@@ -64 +64 @@
 an0=anneeref
 
-!print*,"REPLAY1D jour0,mois0,an0",jour0,mois0,an0
+!PRINT*,"REPLAY1D jour0,mois0,an0",jour0,mois0,an0
 
 
 klon=1
 klev=llm
-call iotd_ini('phys.nc',1,1,klev,0.,0.,presnivs,jour0,mois0,an0,0.,86400./day_step,calendrier)
+CALL iotd_ini('phys.nc',1,1,klev,0.,0.,presnivs,jour0,mois0,an0,0.,86400./day_step,calendrier)
 ! Consistent with ... CALL iophys_ini(600.)
 
@@ -75 +75 @@
 ! Initialisation de la parametrisation
 !---------------------------------------------------------------------
-call call_ini_replay
+CALL call_ini_replay
 
 !---------------------------------------------------------------------
 ! Boucle en temps sur l'appel à la parametrisation
 !---------------------------------------------------------------------
-call call_param_replay(klon,klev)
+CALL call_param_replay(klon,klev)
 
 end
@@ -108 +108 @@
  
       write(*,*) 'in abort_gcm'
-      call histclo
+      CALL histclo
       write(*,*) 'out of histclo'
       write(*,*) 'Stopping in ', modname
       write(*,*) 'Reason = ',message
-      call getin_dump
+      CALL getin_dump
 
       if (ierr == 0) then