Changeset 1682 for trunk/LMDZ.COMMON/libf/dyn3d
- Timestamp:
- Mar 31, 2017, 11:31:38 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90
r1672 r1682 417 417 418 418 !----------------------------------------------------------------------- 419 ! Initialisation de la physique :420 ! -------------------------------421 422 IF ((iflag_phys==1).or.(iflag_phys>=100)) THEN423 ! Physics:424 #ifdef CPP_PHYS425 CALL iniphysiq(iim,jjm,llm, &426 (jjm-1)*iim+2,comm_lmdz, &427 daysec,day_ini,dtphys/nsplit_phys, &428 rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp, &429 iflag_phys)430 #endif431 ENDIF ! of IF ((iflag_phys==1).or.(iflag_phys>=100))432 433 !-----------------------------------------------------------------------434 419 ! Initialisation des I/O : 435 420 ! ------------------------ … … 465 450 #endif 466 451 452 453 !----------------------------------------------------------------------- 454 ! Initialisation de la physique : 455 ! ------------------------------- 456 457 IF ((iflag_phys==1).or.(iflag_phys>=100)) THEN 458 ! Physics: 459 #ifdef CPP_PHYS 460 CALL iniphysiq(iim,jjm,llm, & 461 (jjm-1)*iim+2,comm_lmdz, & 462 daysec,day_ini,dtphys/nsplit_phys, & 463 rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp, & 464 iflag_phys) 465 #endif 466 ENDIF ! of IF ((iflag_phys==1).or.(iflag_phys>=100)) 467 468 467 469 if (planet_type=="mars") then 468 470 ! For Mars we transmit day_ini
Note: See TracChangeset
for help on using the changeset viewer.