Changeset 219


Ignore:
Timestamp:
12/05/18 13:54:33 (6 years ago)
Author:
aquiquet
Message:

Small bug correction for new climat_forcage_mod

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SOURCES/climat_forcage_mod.f90

    r215 r219  
    122122  do m=1,12 
    123123    do k=1,ntr 
    124       t2m_sstopo0(:,:,m,k)=t2m_ss(:,:,m,k)-lapserate*(S0(:,:)-orog_ss(:,:,m)) 
     124      t2m_sstopo0(:,:,m,k)=t2m_ss(:,:,m,k)-lapserate*(S0(:,:)-orog_ss(:,:,k)) 
    125125      pr_sstopo0(:,:,m,k)=pr_ss(:,:,m,k)*exp(rappact*(t2m_sstopo0(:,:,m,k)-t2m_ss(:,:,m,k))) 
    126126    enddo 
Note: See TracChangeset for help on using the changeset viewer.