Changeset 1576 for trunk/LMDZ.GENERIC


Ignore:
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

Location:
trunk/LMDZ.GENERIC
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/README

    r1573 r1576  
    12381238package (directory phystd) must be done in the related phystd/iniphysiq
    12391239routine.
     1240
     1241== 27/07/2016 == EM
     1242- further cleanup in the dynamics/physics interface: stop sending information
     1243  about tracer advection (tracerdyn) back from physics to dynamics as this
     1244  input parameter can be read and set in the dynamics.

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

    r1543 r1576  
    11      PROGRAM gcm
    22
     3      use ioipsl_getincom, only: getin
    34      use infotrac, only: iniadvtrac, nqtot, iadv
    45      use sponge_mod,only: callsponge,mode_sponge,sponge
    … …  
    129130      character*80 abort_message
    130131
    131       LOGICAL tracer
    132           data tracer/.true./
    133 !      INTEGER nq
    134 
     132! flag to run with or without tracer transport (read from run.def)
     133      logical tracer
     134     
    135135C Calendrier
    136136      LOGICAL true_calendar
    … …  
    177177c-----------------------------------------------------------------------
    178178      CALL defrun_new( 99, .TRUE. )
     179      WRITE(*,*) ""
     180      WRITE(*,*) "Run with or without tracer transport ?"
     181      tracer=.true. ! default value
     182      call getin("tracer",tracer)
     183      WRITE(*,*)" tracer = ",tracer
    179184
    180185! Initialize tracers
    … …  
    479484        CALL calfis( nqtot, lafin ,rdayvrai,rday_ecri,time  ,
    480485     $                 ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,
    481      $     du,dv,dteta,dq,w, dufi,dvfi,dhfi,dqfi,dpfi,tracer)
     486     $     du,dv,dteta,dq,w, dufi,dvfi,dhfi,dqfi,dpfi)
    482487
    483488

  • trunk/LMDZ.GENERIC/libf/dynphy_lonlat/calfis.F

    r1549 r1576  
    22     $            pucov,pvcov,pteta,pq,pmasse,pps,pp,ppk,pphis,pphi,
    33     $            pducov,pdvcov,pdteta,pdq,pw,
    4      $            pdufi,pdvfi,pdhfi,pdqfi,pdpsfi,tracer )
     4     $            pdufi,pdvfi,pdhfi,pdqfi,pdpsfi )
    55c
    66c    Auteur :  P. Le Van, F. Hourdin
    … …  
    5656c        pdtsfi         tendency for the surface temperature
    5757c
    58 c        tracer         Call tracer in  gcm.F ? (decided in callphys.def)
    59 c
    6058c=======================================================================
    6159c
    … …  
    106104      REAL pdqfi(iip1,jjp1,llm,nqtot)
    107105      REAL pdpsfi(iip1,jjp1)
    108       logical tracer
    109106
    110107c    Local variables :
    … …  
    441438     ,     flxwfi,
    442439C - sorties
    443      s     zdufi, zdvfi, zdtfi, zdqfi,zdpsrf,tracer)
     440     s     zdufi, zdvfi, zdtfi, zdqfi,zdpsrf)
    444441
    445442

  • trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/callphysiq_mod.F90

    r1549 r1576  
    1616                       zufi_omp,zvfi_omp,zrfi_omp,ztfi_omp,zqfi_omp,      &
    1717                       flxwfi_omp,pducov,                                 &
    18                        zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,zdpsrf_omp,&
    19                        tracerdyn)
     18                       zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,zdpsrf_omp)
    2019
    2120  USE control_mod, ONLY: planet_type
    … …  
    5251  REAL,INTENT(OUT) :: zdqfi_omp(klon,llm,nqtot) ! tendency on tracers
    5352  REAL,INTENT(OUT) :: zdpsrf_omp(klon) ! tendency on surface pressure
    54   LOGICAL,INTENT(OUT) :: tracerdyn
    5553
    5654  ! Local variables
    … …  
    9088              zdtfi_omp,      & ! pdt
    9189              zdqfi_omp,      & ! pdq
    92               zdpsrf_omp,     & ! pdpsrf
    93               tracerdyn)        ! tracerdyn (somewhat obsolete)
     90              zdpsrf_omp)       ! pdpsrf
    9491
    9592

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

    r1549 r1576  
    108108      INTEGER ierr, aslun
    109109      REAL tmp1(0:llm),tmp2(0:llm)
    110       Logical  tracerdyn
    111110      integer :: nq !=1 ! number of tracers
    112111 
    … …  
    906905     ,     w,
    907906C - sorties
    908      s     du, dv, dtemp, dq,dpsurf,tracerdyn)
     907     s     du, dv, dtemp, dq,dpsurf)
    909908
    910909

  • trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

    r1549 r1576  
    1212                  pu,pv,pt,pq,             &
    1313                  flxw,                    &
    14                   pdu,pdv,pdt,pdq,pdpsrf,tracerdyn)
     14                  pdu,pdv,pdt,pdq,pdpsrf)
    1515 
    1616      use radinc_h, only : L_NSPECTI,L_NSPECTV,naerkind
    … …  
    132132!    pdq(ngrid,nlayer)        /
    133133!    pdpsrf(ngrid)             /
    134 !    tracerdyn                 call tracer in dynamical part of GCM ?
    135134!
    136135!
    … …  
    195194      real,intent(out) :: pdq(ngrid,nlayer,nq) ! Tracer tendencies (kg/kg_of_air/s).
    196195      real,intent(out) :: pdpsrf(ngrid)        ! Surface pressure tendency (Pa/s).
    197       logical,intent(out) :: tracerdyn         ! Signal to the dynamics to advect tracers or not.     
    198196
    199197! Local saved variables:
    … …  
    517515!        Initialize tracer names, indexes and properties.
    518516!        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    519          tracerdyn=tracer
    520517         IF (.NOT.ALLOCATED(noms)) ALLOCATE(noms(nq)) ! (because noms is an argument of physdem1 whether or not tracer is on)
    521518         if (tracer) then
Note: See TracChangeset for help on using the changeset viewer.