Changeset 2672 for trunk/LMDZ.MARS/libf/aeronomars

Timestamp:

Apr 27, 2022, 2:37:49 PM (3 years ago)

Author:

emillour

Message:

Mars GCM:
Fixed option to initialize chemistry in testphys1d (inichim_newstart call
arguments were wrong).
Turned inichim_newstart.F90 into a module.
EM

File:

• trunk/LMDZ.MARS/libf/aeronomars/inichim_newstart.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/libf/aeronomars/inichim_newstart.F90

@@ +1 @@
+module inichim_newstart_mod
+
+implicit none
+
+contains
+
       subroutine inichim_newstart(ngrid, nq, pq, qsurf, ps, &
                                   flagh2o, flagthermo)
@@ -49 +55 @@
 ! outputs :
 
-      real,intent(out) :: pq(nbp_lon+1,nbp_lat,nbp_lev,nq)  ! advected fields, ie chemical species
+      real,intent(inout) :: pq(nbp_lon+1,nbp_lat,nbp_lev,nq)  ! advected fields, ie chemical species
       real,intent(out) :: qsurf(ngrid,nq)     ! surface values (kg/m2) of tracers
 
@@ -810 +816 @@
       deallocate(vmrint)
 
-      end
+      end subroutine inichim_newstart
+
+end module inichim_newstart_mod