Changeset 4011

Timestamp:

Nov 19, 2021, 4:28:06 PM (3 years ago)

Author:

dcugnet

Message:

Cleaning: removing ini_histrac.h
Replacing phylmdios/phytrac_mod.F90 by a link to phylmd/phytrac_mod.F90

Location:

LMDZ6/trunk/libf

Files:

• phylmd/ini_histrac.h (deleted)
• phylmd/phytrac_mod.F90 (modified) (3 diffs)
• phylmdiso/ini_histrac.h (deleted)
• phylmdiso/phytrac_mod.F90 (added)

LMDZ6/trunk/libf/phylmd/phytrac_mod.F90

@@ -307 +307 @@
 
     !
-    !Entrees/Sorties: (cf ini_histrac.h et write_histrac.h)  
+    !Entrees/Sorties:
     !---------------
     INTEGER                   :: iiq, ierr
@@ -334 +334 @@
     !---------- 
     REAL,DIMENSION(klon,klev,nbtr) :: flestottr ! flux de lessivage dans chaque couche 
-    REAL,DIMENSION(klon,klev)      :: zmasse    ! densité atmosphérique Kg/m2
+    REAL,DIMENSION(klon,klev)      :: zmasse    ! densite atmospherique Kg/m2
     REAL,DIMENSION(klon,klev)      :: ztra_th
     !PhH
@@ -603 +603 @@
        ENDIF
        !
-       ! Initialize diagnostic output
-       ! ----------------------------
-#ifdef CPP_IOIPSL
-       !     INCLUDE "ini_histrac.h"
-#endif
-       !
        ! print out all tracer flags 
        !