Changeset 4368 for LMDZ6/branches/Ocean_skin/libf/phylmd/thermcell_dry.F90
- Timestamp:
- Dec 6, 2022, 12:01:16 AM (23 months ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
- Property svn:mergeinfo changed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/thermcell_dry.F90
r2311 r4368 3 3 ! 4 4 SUBROUTINE thermcell_dry(ngrid,nlay,zlev,pphi,ztv,alim_star, & 5 & lalim,lmin,zmax,wmax ,lev_out)5 & lalim,lmin,zmax,wmax) 6 6 7 7 !-------------------------------------------------------------------------- … … 14 14 ! la temperature potentielle virtuelle pondérée par alim_star. 15 15 !-------------------------------------------------------------------------- 16 USE thermcell_ini_mod, ONLY: prt_level, RG 17 IMPLICIT NONE 16 18 17 USE print_control_mod, ONLY: prt_level 18 IMPLICIT NONE 19 #include "YOMCST.h" 20 INTEGER l,ig 21 22 INTEGER ngrid,nlay 23 REAL zlev(ngrid,nlay+1) 24 REAL pphi(ngrid,nlay) 25 REAl ztv(ngrid,nlay) 26 REAL alim_star(ngrid,nlay) 27 INTEGER lalim(ngrid) 28 integer lev_out ! niveau pour les print 29 30 REAL zmax(ngrid) 31 REAL wmax(ngrid) 19 integer, intent(in) :: ngrid,nlay 20 real, intent(in), dimension(ngrid,nlay+1) :: zlev,pphi,ztv,alim_star 21 integer, intent(in), dimension(ngrid) :: lalim 22 real, intent(out), dimension(ngrid) :: zmax,wmax 32 23 33 24 !variables locales … … 41 32 CHARACTER (LEN=20) :: modname='thermcell_dry' 42 33 CHARACTER (LEN=80) :: abort_message 34 INTEGER l,ig 43 35 44 36 !initialisations … … 170 162 enddo 171 163 172 164 RETURN 173 165 END
Note: See TracChangeset
for help on using the changeset viewer.