Changeset 219
- Timestamp:
- 12/05/18 13:54:33 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SOURCES/climat_forcage_mod.f90
r215 r219 122 122 do m=1,12 123 123 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)) 125 125 pr_sstopo0(:,:,m,k)=pr_ss(:,:,m,k)*exp(rappact*(t2m_sstopo0(:,:,m,k)-t2m_ss(:,:,m,k))) 126 126 enddo
Note: See TracChangeset
for help on using the changeset viewer.