- Timestamp:
- Jun 2, 2010, 2:57:39 PM (15 years ago)
- Location:
- LMDZ4/branches/LMDZ4V5.0-dev/libf
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/gcm.F
r1393 r1397 184 184 if (planet_type.eq."earth") then 185 185 #ifdef CPP_EARTH 186 CALL Init_Phys_lmdz(iim,jjp1,llm,1,( jjm-1)*iim+2)186 CALL Init_Phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/)) 187 187 call InitComgeomphy 188 188 #endif … … 244 244 if (read_start) then 245 245 ! we still need to run iniacademic to initialize some 246 ! constants & fields, if we run the 'newtonian' case:247 if (iflag_phys. eq.2) then246 ! constants & fields, if we run the 'newtonian' or 'SW' cases: 247 if (iflag_phys.ne.1) then 248 248 CALL iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0) 249 249 endif … … 254 254 CALL dynetat0("start.nc",vcov,ucov, 255 255 & teta,q,masse,ps,phis, time_0) 256 #e ndif256 #else 257 257 ! SW model also has Earth-format start files 258 258 ! (but can be used without the CPP_EARTH directive) … … 261 261 & teta,q,masse,ps,phis, time_0) 262 262 endif 263 263 #endif 264 264 endif ! of if (planet_type.eq."earth") 265 265 -
LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/gcm.F
r1393 r1397 270 270 if (read_start) then 271 271 ! we still need to run iniacademic to initialize some 272 ! constants & fields, if we run the 'newtonian' case:273 if (iflag_phys. eq.2) then272 ! constants & fields, if we run the 'newtonian' or 'SW' cases: 273 if (iflag_phys.ne.1) then 274 274 CALL iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0) 275 275 endif … … 280 280 CALL dynetat0("start.nc",vcov,ucov, 281 281 & teta,q,masse,ps,phis, time_0) 282 #e ndif282 #else 283 283 ! SW model also has Earth-format start files 284 284 ! (but can be used without the CPP_EARTH directive) … … 287 287 & teta,q,masse,ps,phis, time_0) 288 288 endif 289 289 #endif 290 290 endif ! of if (planet_type.eq."earth") 291 291 c write(73,*) 'ucov',ucov
Note: See TracChangeset
for help on using the changeset viewer.