Changeset 1576 for trunk/LMDZ.GENERIC/libf/dyn3d/gcm.F

Timestamp:

Jul 27, 2016, 11:14:41 AM (8 years ago)

Author:

emillour

Message:

All models:
Clean up the dynamics/physics interface to converge with LMDZ5;
get rid of tracerdyn parameter (which was supposed to send information
about wether tracers should be advected or not in the Mars and Generic
models).
EM

File:

• trunk/LMDZ.GENERIC/libf/dyn3d/gcm.F (modified) (4 diffs)

trunk/LMDZ.GENERIC/libf/dyn3d/gcm.F

@@ -1 +1 @@
       PROGRAM gcm
 
+      use ioipsl_getincom, only: getin
       use infotrac, only: iniadvtrac, nqtot, iadv
       use sponge_mod,only: callsponge,mode_sponge,sponge
@@ -129 +130 @@
       character*80 abort_message
 
-      LOGICAL tracer
-          data tracer/.true./
-!      INTEGER nq
-
+! flag to run with or without tracer transport (read from run.def)
+      logical tracer
+      
 C Calendrier
       LOGICAL true_calendar
@@ -177 +177 @@
 c-----------------------------------------------------------------------
       CALL defrun_new( 99, .TRUE. )
+      WRITE(*,*) ""
+      WRITE(*,*) "Run with or without tracer transport ?"
+      tracer=.true. ! default value
+      call getin("tracer",tracer)
+      WRITE(*,*)" tracer = ",tracer
 
 ! Initialize tracers
@@ -479 +484 @@
         CALL calfis( nqtot, lafin ,rdayvrai,rday_ecri,time  ,
      $                 ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,
-     $     du,dv,dteta,dq,w, dufi,dvfi,dhfi,dqfi,dpfi,tracer)
+     $     du,dv,dteta,dq,w, dufi,dvfi,dhfi,dqfi,dpfi)