Changeset 1529 for LMDZ5/trunk/libf/dyn3d/gcm.F
- Timestamp:
- May 26, 2011, 5:17:33 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d/gcm.F
r1454 r1529 408 408 c ------------------------------- 409 409 410 IF (call_iniphys.and.(iflag_phys .eq.1)) THEN410 IF (call_iniphys.and.(iflag_phys==1.or.iflag_phys>=100)) THEN 411 411 latfi(1)=rlatu(1) 412 412 lonfi(1)=0. … … 459 459 #endif 460 460 461 #ifdef CPP_EARTH 462 ! Create start file (startphy.nc) and boundary conditions (limit.nc) 463 ! for the Earth verstion 464 if (iflag_phys>=100) then 465 call iniaqua(ngridmx,latfi,lonfi,iflag_phys) 466 endif 467 #endif 468 461 469 ! if (planet_type.eq."earth") then 462 470 ! Write an Earth-format restart file 471 463 472 CALL dynredem0("restart.nc", day_end, phis) 464 473 ! endif
Note: See TracChangeset
for help on using the changeset viewer.