Changeset 5267 for LMDZ6/trunk/libf/dyn3d_common/inithist.F90
- Timestamp:
- Oct 23, 2024, 5:34:46 PM (2 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d_common/inithist.F90
r5246 r5267 4 4 subroutine inithist(day0,anne0,tstep,t_ops,t_wrt) 5 5 6 #ifdef CPP_IOIPSL7 6 USE IOIPSL 8 #endif9 7 USE infotrac, ONLY : nqtot 10 8 use com_io_dyn_mod, only : histid,histvid,histuid, & … … 52 50 real :: tstep, t_ops, t_wrt 53 51 54 #ifdef CPP_IOIPSL55 52 ! This routine needs IOIPSL to work 56 53 ! Variables locales … … 186 183 call histend(histuid) 187 184 call histend(histvid) 188 #else 189 ! tell the user this routine should be run with ioipsl 190 write(lunout,*)"inithist: Warning this routine should not be", & 191 " used without ioipsl" 192 #endif 193 ! of #ifdef CPP_IOIPSL 185 186 194 187 return 195 188 end subroutine inithist
Note: See TracChangeset
for help on using the changeset viewer.