- 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/DIA/diawri.F90
r9399 r9570 51 51 USE ioipsl ! 52 52 53 #if defined key_ lim353 #if defined key_si3 54 54 USE icewri 55 55 #endif … … 79 79 # include "vectopt_loop_substitute.h90" 80 80 !!---------------------------------------------------------------------- 81 !! NEMO/O PA3.3 , NEMO Consortium (2010)81 !! NEMO/OCE 3.3 , NEMO Consortium (2010) 82 82 !! $Id$ 83 83 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 971 971 ENDIF 972 972 973 #if defined key_ lim3973 #if defined key_si3 974 974 IF( nn_ice == 2 ) THEN ! condition needed in case agrif + ice-model but no-ice in child grid 975 975 CALL ice_wri_state( kt, id_i, nh_i )
Note: See TracChangeset
for help on using the changeset viewer.