Changeset 2785 for trunk/LMDZ.GENERIC/libf/phystd/dyn1d

Timestamp:

Aug 3, 2022, 5:07:41 PM (2 years ago)

Author:

emillour

Message:

Generic PCM:
Further seperation between dynamics and physics concerning tracers:
Tracer names are extracted from traceur.def via initracer.F90 and no
longer transfered from the dynamics to the physics
LT+EM

Location:

trunk/LMDZ.GENERIC/libf/phystd/dyn1d

Files:

• kcm1d.F90 (modified) (1 diff)
• rcm1d.F (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/kcm1d.F90

@@ -210 +210 @@
      endif
 
-     call initracer(1,nq,nametrac)
+     call initracer(1,nq)
 
   endif

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

@@ -693 +693 @@
      &            form="formatted",iostat=ierr)
                   if (ierr .eq. 0) then 
-                        read(91,*),qsurf(iq)
+                        read(91,*)qsurf(iq)
                         do ilayer=1,nlayer 
                               read(91,*)q(ilayer,iq)
@@ -929 +929 @@
 #ifndef MESOSCALE
       if(tracer.and.photochem) then
-           call initracer(1,nq,tname)
+           call initracer(1,nq)
            allocate(nametmp(nq))
            nametmp(1:nq)=tname(1:nq)
@@ -1005 +1005 @@
 
       CALL physiq (1,llm,nq,
-     .     tname,
      ,     firstcall,lastcall,
      ,     day,time,dtphys,