Changeset 1397 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/gcm.F
- Timestamp:
- Jun 2, 2010, 2:57:39 PM (14 years ago)
- File:
-
- 1 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
Note: See TracChangeset
for help on using the changeset viewer.