Changeset 5267 for LMDZ6/trunk/libf/dyn3d_common/initfluxsto.F90
- Timestamp:
- Oct 23, 2024, 5:34:46 PM (2 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d_common/initfluxsto.F90
r5246 r5267 6 6 fileid,filevid,filedid) 7 7 8 #ifdef CPP_IOIPSL9 8 USE IOIPSL 10 #endif11 9 USE comconst_mod, ONLY: pi 12 10 USE comvert_mod, ONLY: nivsigs … … 54 52 integer :: fileid, filevid,filedid 55 53 56 #ifdef CPP_IOIPSL57 54 ! This routine needs IOIPSL to work 58 55 ! Variables locales … … 222 219 endif 223 220 224 #else 225 ! tell the user this routine should be run with ioipsl 226 write(lunout,*)"initfluxsto: Warning this routine should not be", & 227 " used without ioipsl" 228 #endif 229 ! of #ifdef CPP_IOIPSL 221 222 230 223 return 231 224 end subroutine initfluxsto
Note: See TracChangeset
for help on using the changeset viewer.