Changeset 10222 for NEMO/trunk/src/TOP/PISCES/SED/sedmodel.F90
- Timestamp:
- 2018-10-25T11:42:23+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/SED/sedmodel.F90
r7646 r10222 1 1 MODULE sedmodel 2 #if defined key_sed3 2 !!====================================================================== 4 3 !! *** MODULE sedmodel *** … … 6 5 !!====================================================================== 7 6 USE sed 8 USE sedini ! sediment variables initialization9 7 USE sedstp ! time stepping 8 USE sedinitrc 10 9 11 10 IMPLICIT NONE … … 33 32 34 33 35 IF( kt == nittrc000 ) CALL sed_init ! Initialization of sediment model34 IF( ln_timing ) CALL timing_start('sed_model') 36 35 37 CALL sed_stp( kt ) ! Time stepping of Sediment model 36 IF( kt == nittrc000 ) CALL sed_initrc ! Initialization of sediment model 37 CALL sed_stp( kt ) ! Time stepping of Sediment model 38 38 39 IF( ln_timing ) CALL timing_stop('sed_model') 39 40 40 41 END SUBROUTINE sed_model 41 42 42 #else43 !!======================================================================44 !! MODULE sedmodel : Dummy module45 !!======================================================================46 CONTAINS47 SUBROUTINE sed_model( kt ) ! Empty routine48 INTEGER, INTENT(in) :: kt49 WRITE(*,*) 'sed_stp: You should not have seen this print! error?', kt50 END SUBROUTINE sed_model51 #endif52 53 43 END MODULE sedmodel
Note: See TracChangeset
for help on using the changeset viewer.