- Timestamp:
- 2015-09-24T08:31:40+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
r5215 r5758 18 18 19 19 !!---------------------------------------------------------------------- 20 !! 'key_asminc' : Switch on the assimilation increment interface21 !!----------------------------------------------------------------------22 20 !! asm_bkg_wri : Write out the background state 23 21 !! asm_trj_wri : Write out the model state trajectory (used with 4D-Var) … … 27 25 USE zdf_oce ! Vertical mixing variables 28 26 USE zdfddm ! Double diffusion mixing parameterization 29 USE ldftra _oce ! Lateral tracer mixing coefficient defined in memory30 USE ldfslp ! Slopes of neutral surfaces27 USE ldftra ! Lateral diffusion: eddy diffusivity coefficients 28 USE ldfslp ! Lateral diffusion: slopes of neutral surfaces 31 29 USE tradmp ! Tracer damping 32 30 #if defined key_zdftke … … 41 39 USE asmpar ! Parameters for the assmilation interface 42 40 USE zdfmxl ! mixed layer depth 43 #if defined key_traldf_c2d44 USE ldfeiv ! eddy induced velocity coef. (ldf_eiv routine)45 #endif46 41 #if defined key_lim2 47 42 USE ice_2 … … 155 150 CALL iom_rstput( kt, nitdin_r, inum, 'sshn' , sshn ) 156 151 #if defined key_lim2 || defined key_lim3 157 IF( ( nn_ice == 2 ) .OR. ( nn_ice == 3 )) THEN158 IF(ALLOCATED(frld)) THEN159 CALL iom_rstput( kt, nitdin_r, inum, 'iceconc', 1. 0- frld(:,:) )152 IF( nn_ice == 2 .OR. nn_ice == 3 ) THEN 153 IF( ALLOCATED(frld) ) THEN 154 CALL iom_rstput( kt, nitdin_r, inum, 'iceconc', 1._wp - frld(:,:) ) 160 155 ELSE 161 CALL ctl_warn('Ice concentration not written to background as ice variable frld not allocated on this timestep')162 ENDIF156 CALL ctl_warn('Ice concentration not written to background as ice variable frld not allocated on this timestep') 157 ENDIF 163 158 ENDIF 164 159 #endif
Note: See TracChangeset
for help on using the changeset viewer.