- Timestamp:
- May 27, 2010, 8:51:35 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/fluxstokenc_p.F
r1299 r1393 4 4 SUBROUTINE fluxstokenc_p(pbaru,pbarv,masse,teta,phi,phis, 5 5 . time_step,itau ) 6 #ifdef CPP_ EARTH7 ! This routine is designed to work for Earth andwith ioipsl6 #ifdef CPP_IOIPSL 7 ! This routine is designed to work with ioipsl 8 8 9 9 USE IOIPSL … … 202 202 203 203 iadvtr=0 204 Print*,'ITAU auqel on stoke les fluxmasses',itau204 write(lunout,*)'ITAU auquel on stoke les fluxmasses',itau 205 205 206 206 ijb=ij_begin … … 244 244 #else 245 245 write(lunout,*) 246 & 'fluxstokenc: Needs Earth physics (and ioipsl)to function'246 & 'fluxstokenc: Needs IOIPSL to function' 247 247 #endif 248 ! of #ifdef CPP_ EARTH248 ! of #ifdef CPP_IOIPSL 249 249 RETURN 250 250 END
Note: See TracChangeset
for help on using the changeset viewer.