Changeset 3011


Ignore:
Timestamp:
Oct 9, 2017, 8:34:04 PM (7 years ago)
Author:
Laurent Fairhead
Message:

Reading the number of PFTs from the orchidee.def file
JG/LF

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

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/dimpft.h

    r2952 r3011  
    33!
    44      INTEGER nvm_lmdz
    5       PARAMETER (nvm_lmdz=13)
     5!      PARAMETER (nvm_lmdz=13)
     6      COMMON /dimpft/ nvm_lmdz

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3000 r3011  
    309309    include "clesphys.h"
    310310    include "thermcell.h"
     311    include "dimpft.h"
    311312    !======================================================================
    312313    LOGICAL ok_cvl  ! pour activer le nouveau driver pour convection KE
    … …  
    12551256       iflag_phytrac = 1 ! by default we do want to call phytrac
    12561257       CALL getin_p('iflag_phytrac',iflag_phytrac)
     1258       nvm_lmdz = 13
     1259       CALL getin_p('NVM',nvm_lmdz)
    12571260    ENDIF
    12581261
Note: See TracChangeset for help on using the changeset viewer.