Changeset 815 for trunk/LMDZ.COMMON/libf
- Timestamp:
- Oct 25, 2012, 10:11:15 AM (12 years ago)
- Location:
- trunk/LMDZ.COMMON/libf
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/dyn3d/gcm.F
r780 r815 452 452 zcvfi(ngridmx) = cv(ip1jm-iim) 453 453 CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,aire,airefi) 454 WRITE(lunout,*)455 . 'GCM: WARNING!!! vitesse verticale nulle dans la physique'456 454 457 455 ! Initialisation de la physique: pose probleme quand on tourne -
trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F
r776 r815 467 467 zcvfi(ngridmx) = cv(ip1jm-iim) 468 468 CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,aire,airefi) 469 WRITE(lunout,*)470 . 'GCM: WARNING!!! vitesse verticale nulle dans la physique'471 469 ! Physics 472 470 #ifdef CPP_PHYS
Note: See TracChangeset
for help on using the changeset viewer.