Changeset 2222 for LMDZ5/trunk/libf/dyn3dmem
- Timestamp:
- Mar 10, 2015, 10:58:04 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dmem/gcm.F
r2221 r2222 438 438 zcvfi(ngridmx) = cv(ip1jm-iim) 439 439 CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,aire,airefi) 440 441 WRITE(lunout,*) 442 . 'GCM: WARNING!!! vitesse verticale nulle dans la physique' 440 ! Poles are single points on physics grid 441 airefi(1)=sum(aire(1:iim)) 442 airefi(ngridmx)=sum(aire(ip1jmp1-(iim+1)+1:ip1jmp1-1)) 443 ! WRITE(lunout,*) 444 ! . 'GCM: WARNING!!! vitesse verticale nulle dans la physique' 443 445 ! Physics: 444 446 #ifdef CPP_PHYS
Note: See TracChangeset
for help on using the changeset viewer.