- Timestamp:
- 2018-05-11T12:53:25+02:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC
- Files:
-
- 1 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/ASM/asmbkg.F90
r9019 r9570 36 36 USE asmpar ! Parameters for the assmilation interface 37 37 USE zdfmxl ! mixed layer depth 38 #if defined key_ lim338 #if defined key_si3 39 39 USE ice 40 40 #endif … … 46 46 47 47 !!---------------------------------------------------------------------- 48 !! NEMO/O PA3.3 , NEMO Consortium (2010)48 !! NEMO/OCE 3.3 , NEMO Consortium (2010) 49 49 !! $Id$ 50 50 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 139 139 CALL iom_rstput( kt, nitdin_r, inum, 'sn' , tsn(:,:,:,jp_sal) ) 140 140 CALL iom_rstput( kt, nitdin_r, inum, 'sshn' , sshn ) 141 #if defined key_ lim3141 #if defined key_si3 142 142 IF( nn_ice == 2 ) THEN 143 143 IF( ALLOCATED(at_i) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.