Changeset 4011 for LMDZ6/trunk


Ignore:
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:
1 added
2 deleted
1 edited

Legend:

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

    r3870 r4011  
    307307
    308308    !
    309     !Entrees/Sorties: (cf ini_histrac.h et write_histrac.h) 
     309    !Entrees/Sorties:
    310310    !---------------
    311311    INTEGER                   :: iiq, ierr
     
    334334    !----------
    335335    REAL,DIMENSION(klon,klev,nbtr) :: flestottr ! flux de lessivage dans chaque couche
    336     REAL,DIMENSION(klon,klev)      :: zmasse    ! densité atmosphérique Kg/m2
     336    REAL,DIMENSION(klon,klev)      :: zmasse    ! densite atmospherique Kg/m2
    337337    REAL,DIMENSION(klon,klev)      :: ztra_th
    338338    !PhH
     
    603603       ENDIF
    604604       !
    605        ! Initialize diagnostic output
    606        ! ----------------------------
    607 #ifdef CPP_IOIPSL
    608        !     INCLUDE "ini_histrac.h"
    609 #endif
    610        !
    611605       ! print out all tracer flags
    612606       !
Note: See TracChangeset for help on using the changeset viewer.