Changeset 1121 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
Dec 5, 2013, 11:30:36 AM (11 years ago)
Author:
slebonnois
Message:

SL: bugs in rcm1d (venus, titan)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/rcm1d.F

    r1120 r1121  
    66      USE phys_state_var_mod
    77      use cpdet_mod, only: ini_cpdet
     8      use moyzon_mod, only: plevmoy
    89      IMPLICIT NONE
    910
    … …  
    167168      ndt=ndt*day_step     
    168169      dtphys=daysec/day_step 
     170      dtime=dtphys
    169171
    170172c Pression de surface sur la planete
    … …  
    241243        plev(ilevel)=ap(ilevel)+psurf*bp(ilevel)
    242244      ENDDO
     245      allocate(plevmoy(nlevel))
     246      plevmoy(:)=plev(:)
    243247
    244248      DO ilayer=1,nlayer
Note: See TracChangeset for help on using the changeset viewer.