Changeset 1615 for LMDZ5/trunk/libf/dyn3d/calfis.F
- Timestamp:
- Feb 10, 2012, 4:42:26 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d/calfis.F
r1407 r1615 434 434 c 435 435 if (planet_type=="earth") then 436 #ifdef CPP_EARTH437 436 cIM calcul PV a teta=350, 380, 405K 438 437 CALL PVtheta(ngridmx,llm,pucov,pvcov,pteta, 439 438 $ ztfi,zplay,zplev, 440 439 $ ntetaSTD,rtetaSTD,PVteta) 441 #endif442 440 endif 443 441 c … … 450 448 451 449 452 if (planet_type=="earth") then453 #ifdef CPP_EARTH454 450 455 451 ! write(lunout,*) 'PHYSIQUE AVEC NSPLIT_PHYS=',nsplit_phys … … 460 456 zdqfic(:,:,:)=0. 461 457 462 do isplit=1,nsplit_phys 458 if (planet_type=="earth") then 459 #ifdef CPP_PHYS 460 461 do isplit=1,nsplit_phys 463 462 464 463 jH_cur_split=jH_cur+(isplit-1) * dtvr / (daysec *nsplit_phys) … … 503 502 zdqfic(:,:,:)=zdqfic(:,:,:)+zdqfi(:,:,:) 504 503 505 enddo 504 enddo ! of do isplit=1,nsplit_phys 505 506 #endif 507 ! of #ifdef CPP_PHYS 508 endif ! of if (planet_type=="earth") 509 506 510 zdufi(:,:)=zdufic(:,:)/nsplit_phys 507 511 zdvfi(:,:)=zdvfic(:,:)/nsplit_phys … … 509 513 zdqfi(:,:,:)=zdqfic(:,:,:)/nsplit_phys 510 514 511 #endif512 endif !of if (planet_type=="earth")513 515 514 516 500 CONTINUE
Note: See TracChangeset
for help on using the changeset viewer.