Changeset 4161 for LMDZ6/trunk/libf


Ignore:
Timestamp:
May 20, 2022, 2:54:07 PM (2 years ago)
Author:
fhourdin
Message:

For replay_param.sh

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/thermcell_plume.F90

    r4093 r4161  
    6363
    6464
    65       REAL wa_moy(ngrid,nlay+1)
    66       REAL entr(ngrid,nlay),detr(ngrid,nlay)
    67       REAL ztv_est(ngrid,nlay)
    68       REAL zqla_est(ngrid,nlay)
    69       REAL zta_est(ngrid,nlay)
    70       REAL ztemp(ngrid),zqsat(ngrid)
     65      REAL,dimension(ngrid,nlay+1) :: wa_moy
     66      REAL,dimension(ngrid,nlay) :: entr,detr
     67      REAL,dimension(ngrid,nlay) :: ztv_est
     68      REAL,dimension(ngrid,nlay) :: zqla_est
     69      REAL,dimension(ngrid,nlay) :: zta_est
     70      REAL,dimension(ngrid) :: ztemp,zqsat
    7171      REAL zdw2,zdw2bis
    7272      REAL zw2modif
    7373      REAL zw2fact,zw2factbis
    74       REAL zeps(ngrid,nlay)
    75 
    76       REAL    wmaxa(ngrid)
     74      REAL,dimension(ngrid,nlay) :: zeps
     75
     76      REAL,dimension(ngrid) :: wmaxa
    7777
    7878      INTEGER ig,l,k,lt,it,lm,nbpb
    7979
    80       real zdz,zbuoy(ngrid,nlay),zalpha,gamma(ngrid,nlay),zdqt(ngrid,nlay),zw2m
    81       real zbuoyjam(ngrid,nlay),zdqtjam(ngrid,nlay)
     80      real,dimension(ngrid,nlay) :: zbuoy,gamma,zdqt
     81      real zdz,zalpha,zw2m
     82      real,dimension(ngrid,nlay) :: zbuoyjam,zdqtjam
    8283      real zdz2,zdz3,lmel,entrbis,zdzbis
    83       real d_temp(ngrid)
     84      real,dimension(ngrid) :: d_temp
    8485      real ztv1,ztv2,factinv,zinv,zlmel
    8586      real zlmelup,zlmeldwn,zlt,zltdwn,zltup
     
    9091      real eps
    9192      logical Zsat
    92       LOGICAL active(ngrid),activetmp(ngrid)
     93      LOGICAL,dimension(ngrid) :: active,activetmp
    9394      REAL fact_gamma,fact_gamma2,fact_epsilon2
    9495
    9596
    96       REAL c2(ngrid,nlay)
     97      REAL,dimension(ngrid,nlay) :: c2
    9798
    9899      if (ngrid==1) print*,'THERMCELL PLUME MODIFIE 2014/07/11'
     
    443444
    444445
    445      return
     446   include "dump_param.h" ! replay automatic include
     447 RETURN
    446448     end
  • LMDZ6/trunk/libf/phylmd/thermcell_plume_6A.F90

    r4095 r4161  
    5555      REAL zw2modif
    5656      REAL zw2fact,zw2factbis
    57       REAL zeps(ngrid,nlay)
    58 
    59       REAL    wmaxa(ngrid)
     57      REAL,dimension(ngrid,nlay) :: zeps
     58
     59      REAL, dimension(ngrid) ::    wmaxa(ngrid)
    6060
    6161      INTEGER ig,l,k,lt,it,lm
     
    7070      real,dimension(ngrid,nlay) :: zta_est
    7171
    72       real zdz,zbuoy(ngrid,nlay),zalpha,gamma(ngrid,nlay),zdqt(ngrid,nlay),zw2m
    73       real zbuoyjam(ngrid,nlay),zdqtjam(ngrid,nlay)
     72      real,dimension(ngrid,nlay) :: zbuoy,gamma,zdqt
     73      real zdz,zalpha,zw2m
     74      real,dimension(ngrid,nlay) :: zbuoyjam,zdqtjam
    7475      real zbuoybis,zdz2,zdz3,lmel,entrbis,zdzbis
    75       real d_temp(ngrid)
     76      real, dimension(ngrid) :: d_temp
    7677      real ztv1,ztv2,factinv,zinv,zlmel
    7778      real zlmelup,zlmeldwn,zlt,zltdwn,zltup
     
    8283      real eps
    8384      logical Zsat
    84       LOGICAL active(ngrid),activetmp(ngrid)
     85      LOGICAL,dimension(ngrid) :: active,activetmp
    8586      REAL fact_gamma,fact_gamma2,fact_epsilon2
    8687      REAL coefc
    87       REAL c2(ngrid,nlay)
     88      REAL,dimension(ngrid,nlay) :: c2
    8889
    8990      if (ngrid==1) print*,'THERMCELL PLUME MODIFIE 2014/07/11'
Note: See TracChangeset for help on using the changeset viewer.