Changeset 3074 for trunk/LMDZ.MARS/libf/phymars/dyn1d

Timestamp:

Oct 6, 2023, 4:37:23 PM (15 months ago)

Author:

jbclement

Message:

Mars PCM:
Transformation of 'writerestart1D' into module.
JBC

Location:

trunk/LMDZ.MARS/libf/phymars/dyn1d

Files:

• testphys1d.F90 (modified) (1 diff)
• writerestart1D_mod.F90 (moved) (moved from trunk/LMDZ.MARS/libf/phymars/dyn1d/writerestart1D.F90) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90

@@ -16 +16 @@
 use write_output_mod,    only: write_output
 use init_testphys1d_mod, only: init_testphys1d
+use writerestart1D_mod,  only: writerestart1D
 ! Mostly for XIOS outputs:
 use mod_const_mpi,       only: init_const_mpi

trunk/LMDZ.MARS/libf/phymars/dyn1d/writerestart1D_mod.F90

@@ +1 @@
+MODULE writerestart1D_mod
+
+implicit none
+
+contains
+
 SUBROUTINE writerestart1D(filename,psurf,tsurf,nlayer,nslope,temp,u,v,nq,qnames,qsurf,q)
 
@@ -28 +34 @@
 
 END SUBROUTINE writerestart1D
+
+END MODULE writerestart1D_mod