Changeset 5267 for LMDZ6/trunk/libf/dyn3dmem/initdynav_loc.F90
- Timestamp:
- Oct 23, 2024, 5:34:46 PM (2 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/initdynav_loc.F90
r5246 r5267 4 4 subroutine initdynav_loc(day0,anne0,tstep,t_ops,t_wrt) 5 5 6 #ifdef CPP_IOIPSL7 6 ! This routine needs IOIPSL 8 7 USE IOIPSL 9 #endif 8 10 9 USE parallel_lmdz 11 10 use Write_field … … 56 55 real :: tstep, t_ops, t_wrt 57 56 58 #ifdef CPP_IOIPSL59 57 ! This routine needs IOIPSL 60 58 ! Variables locales … … 281 279 call histend(histuaveid) 282 280 call histend(histvaveid) 283 #else 284 write(lunout,*)'initdynav_loc: Needs IOIPSL to function' 285 #endif 286 ! #endif of #ifdef CPP_IOIPSL 281 287 282 end subroutine initdynav_loc
Note: See TracChangeset
for help on using the changeset viewer.