Changeset 315 for trunk/LMDZ.MARS/libf/phymars
- Timestamp:
- Oct 10, 2011, 11:01:05 PM (13 years ago)
- Location:
- trunk/LMDZ.MARS/libf/phymars/meso_inc
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_ini.F
r285 r315 17 17 tsoil(:,:)=wtsoil(:,:) 18 18 PRINT*,'check: tsoil ',tsoil(1,1),tsoil(ngridmx,nsoilmx) 19 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!20 !!!new physics21 PRINT*,'no variable z0 field for the moment. use z0_default.'22 z0(:) = z0_default23 PRINT*, 'check z0 ', z0(1)19 c !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 20 c !!!new physics 21 c PRINT*,'no variable z0 field for the moment. use z0_default.' 22 c z0(:) = z0_default 23 c PRINT*, 'check z0 ', z0(1) 24 24 inertiedat(:,:)=wisoil(:,:) 25 25 PRINT*,'check: inert ',inertiedat(1,1),inertiedat(ngridmx,nsoilmx) -
trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisini.F
r250 r315 83 83 print*,volcapa 84 84 85 ! 86 ! in surfdat.h 87 ! 88 z0(:) = wz0tab(:) 89 print*,"check: z0" 90 print*,z0(1),z0(ngrid) 91 85 92 c***************************************************** 86 93 c Since it comes from WRF settings, we have to -
trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisinvar.F
r234 r315 5 5 $ ,wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS 6 6 $ ,wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS 7 $ ,walbedodat,wphisfi,wvolcapa 7 $ ,walbedodat,wphisfi,wvolcapa,wz0tab 8 8 $ ,wzmea,wzstd,wzsig,wzgam,wzthe 9 9 $ ,wtheta,wpsi -
trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisvar.F
r234 r315 13 13 REAL wtheta(ngrid),wpsi(ngrid) 14 14 REAL wvolcapa 15 REAL wz0tab(ngrid)
Note: See TracChangeset
for help on using the changeset viewer.