- Timestamp:
- 2017-09-27T16:29:24+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/DOM/iscplini.F90
r7646 r8568 11 11 !! iscpl_alloc : allocation of correction variables 12 12 !!---------------------------------------------------------------------- 13 USE oce ! global tra/dyn variable 13 14 USE dom_oce ! ocean space and time domain 14 USE oce ! global tra/dyn variable15 ! 15 16 USE lib_mpp ! MPP library 16 17 USE lib_fortran ! MPP library … … 47 48 END FUNCTION iscpl_alloc 48 49 50 49 51 SUBROUTINE iscpl_init() 52 !!---------------------------------------------------------------------- 50 53 INTEGER :: ios ! Local integer output status for namelist read 51 NAMELIST/namsbc_iscpl/ nn_fiscpl,ln_hsb,nn_drown54 NAMELIST/namsbc_iscpl/ nn_fiscpl, ln_hsb, nn_drown 52 55 !!---------------------------------------------------------------------- 53 ! ! ============54 ! ! Namelist55 ! ! ============56 56 ! 57 57 nn_fiscpl = 0 … … 79 79 WRITE(numout,*) ' coupling time step = ', rdt_iscpl 80 80 WRITE(numout,*) ' number of call of the extrapolation loop = ', nn_drown 81 END 82 81 ENDIF 82 ! 83 83 END SUBROUTINE iscpl_init 84 84 85 !!====================================================================== 85 86 END MODULE iscplini
Note: See TracChangeset
for help on using the changeset viewer.