Changeset 3940 for LMDZ6/trunk/libf/phylmdiso/thermcell_main.F90

Timestamp:

Jun 15, 2021, 1:18:14 PM (3 years ago)

Author:

crisi

Message:

replace files by symbloic liks from phylmdiso towards phylmd.
Many files at once

File:

• LMDZ6/trunk/libf/phylmdiso/thermcell_main.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/thermcell_main.F90

@@ -267 +267 @@
       REAL xtzo_tmp(klon,klev)
       integer ixt
-      real xtzl(ntraciso,klon,klev) ! Rq: n'est pas utilisé? Juste diagnostiqué dans thermcell_env. A supprimer?
 #endif
 !
@@ -329 +328 @@
 !
       CALL thermcell_env(ngrid,nlay,po,pt,pu,pv,pplay,  &
-     &           pplev,zo,zh,zl,ztv,zthl,zu,zv,zpspsk,zqsat,lev_out &
-#ifdef ISO
-     &            ,xtpo,xtzo,xtzl &
-#endif      
-     &   )
+     &           pplev,zo,zh,zl,ztv,zthl,zu,zv,zpspsk,zqsat,lev_out)
        
       if (prt_level.ge.1) print*,'thermcell_main apres thermcell_env'