Changeset 1120 for trunk/LMDZ.VENUS/libf


Ignore:
Timestamp:
Dec 3, 2013, 3:05:40 PM (11 years ago)
Author:
slebonnois
Message:

SL: Titan and Venus modifications following a modif in dyn3d[par].

Location:
trunk/LMDZ.VENUS/libf/phyvenus
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.VENUS/libf/phyvenus/clesphys.h

    r97 r1120  
    1111       LOGICAL ok_orodr,ok_orolf,ok_gw_nonoro
    1212       INTEGER nbapp_rad, nbapp_chim, iflag_con, iflag_ajs
    13        REAL    ecritphy
     13       REAL    ecriphy
    1414       REAL    solaire
    1515       REAL    z0, lmixmin
    … …  
    2020       COMMON/clesphys/cycle_diurne, soil_model,                        &
    2121     &     ok_orodr, ok_orolf, ok_gw_nonoro, nbapp_rad, nbapp_chim      &
    22      &     , ecritphy                                                   &
     22     &     , ecriphy                                                    &
    2323     &     , iflag_con, iflag_ajs, solaire, z0, lmixmin, ksta           &
    2424     &     , ok_kzmin, lev_histhf, lev_histday, lev_histmth             &

  • trunk/LMDZ.VENUS/libf/phyvenus/conf_phys.F90

    r97 r1120  
    138138!Config         en jours.
    139139!
    140        ecritphy = 1.
    141        CALL getin('ecritphy', ecritphy)
     140       ecriphy = 1.
     141       CALL getin('ecritphy', ecriphy)
    142142!
    143143!
    … …  
    318318  write(numout,*)' Sortie mensuelle = ', ok_mensuel
    319319  write(numout,*)' Sortie instantanee = ', ok_instan
    320   write(numout,*)' frequence sorties = ', ecritphy 
     320  write(numout,*)' frequence sorties = ', ecriphy 
    321321  write(numout,*)' Sortie bilan d''energie, if_ebil =', if_ebil
    322322  write(numout,*)' Excentricite = ',R_ecc

  • trunk/LMDZ.VENUS/libf/phyvenus/physiq.F

    r1017 r1120  
    478478     .                   iflag_ajs
    479479c
    480          ecrit_mth = NINT(RDAY/dtime*ecritphy)  ! tous les ecritphy jours
     480         ecrit_mth = NINT(RDAY/dtime*ecriphy)  ! tous les ecritphy jours
    481481         IF (ok_mensuel) THEN
    482482         WRITE(lunout,*)'La frequence de sortie mensuelle est de ',
    … …  
    490490         ENDIF
    491491
    492          ecrit_ins = NINT(RDAY/dtime*ecritphy)  ! Fraction de jour reglable
     492         ecrit_ins = NINT(RDAY/dtime*ecriphy)  ! Fraction de jour reglable
    493493         IF (ok_instan) THEN
    494494         WRITE(lunout,*)'La frequence de sortie instant. est de ',

  • trunk/LMDZ.VENUS/libf/phyvenus/rcm1d.F

    r1018 r1120  
    197197      CALL init_phys_lmdz(iim,jjm,llm,1,(/1/))
    198198      call initcomgeomphy
    199       call infotrac_init
    200199      call ini_cpdet
    201200
Note: See TracChangeset for help on using the changeset viewer.