Changeset 5965 for branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
- Timestamp:
- 2015-12-01T16:35:30+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
- Property svn:keywords set to Id
r3764 r5965 57 57 !!---------------------------------------------------------------------- 58 58 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 59 !! $Id :$59 !! $Id$ 60 60 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 61 61 !!---------------------------------------------------------------------- … … 156 156 #if defined key_lim2 || defined key_lim3 157 157 IF(( nn_ice == 2 ) .OR. ( nn_ice == 3 )) THEN 158 CALL iom_rstput( kt, nitdin_r, inum, 'iceconc', 1.0 - frld(:,:) ) 158 IF(ALLOCATED(frld)) THEN 159 CALL iom_rstput( kt, nitdin_r, inum, 'iceconc', 1.0 - frld(:,:) ) 160 ELSE 161 CALL ctl_warn('Ice concentration not written to background as ice variable frld not allocated on this timestep') 162 ENDIF 159 163 ENDIF 160 164 #endif
Note: See TracChangeset
for help on using the changeset viewer.