Changeset 2358 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Sep 4, 2015, 9:10:16 AM (10 years ago)
Author:
Ehouarn Millour
Message:
  • Correction of xml files to follow up on the new variables added in rev 2333.
  • Added option '-libphy' to makelmdz_fcm to generate a given physics package library (without compiling dynamics or a main program).

EM

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

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/phys_cal_mod.F90

    r2344 r2358  
    2929  REAL,SAVE    :: jD_ref  ! jour du demarage de la simulation (jour julien)
    3030!$OMP THREADPRIVATE(jD_ref)
     31 CHARACTER (len=10) :: calend ! type of calendar to use
     32                              ! (can be earth_360d, earth_365d or earth_366d)
     33!$OMP THREADPRIVATE(calend)
    3134
    3235
    … …  
    3538  SUBROUTINE phys_cal_init(annee_ref,day_ref)
    3639  USE IOIPSL, ONLY:  ymds2ju
     40  USE ioipsl_getin_p_mod, ONLY: getin_p
    3741  IMPLICIT NONE
    3842    INTEGER,INTENT(IN) :: annee_ref
    3943    INTEGER,INTENT(IN) :: day_ref
    4044
     45    ! Find out which type of calendar we are using
     46    calend = 'earth_360d' ! default
     47    CALL getin_p("calend",calend)
     48     
    4149    CALL ymds2ju(annee_ref, 1, day_ref, 0., jD_ref)
    4250    jD_ref=INT(jD_ref)
    … …  
    6876
    6977END MODULE phys_cal_mod
     78

  • LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

    r2351 r2358  
    3838    USE infotrac_phy, ONLY: nqtot, nqo, niadv, tname, ttext
    3939    USE ioipsl
    40     USE phys_cal_mod, only : hour
     40    USE phys_cal_mod, only : hour, calend
    4141    USE mod_phys_lmdz_para
    4242    USE aero_mod, only : naero_spc,name_aero
    … …  
    565565END MODULE phys_output_mod
    566566
     567
Note: See TracChangeset for help on using the changeset viewer.