Changeset 5948 for branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
- Timestamp:
- 2015-11-30T11:47:24+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
r5947 r5948 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 … … 36 34 USE zdfmxl ! Mixed layer depth 37 35 USE dom_oce, ONLY : ndastp 38 USE sol_oce, ONLY : gcx ! Solver variables defined in memory39 36 USE in_out_manager ! I/O manager 40 37 USE iom ! I/O module 41 38 USE asmpar ! Parameters for the assmilation interface 42 39 USE zdfmxl ! mixed layer depth 43 #if defined key_traldf_c2d44 USE ldfeiv ! eddy induced velocity coef. (ldf_eiv routine)45 #endif46 40 #if defined key_lim2 47 41 USE ice_2 … … 119 113 CALL iom_rstput( kt, nitbkg_r, inum, 'en' , en ) 120 114 #endif 121 CALL iom_rstput( kt, nitbkg_r, inum, 'gcx' , gcx )122 115 ! 123 116 CALL iom_close( inum ) … … 155 148 CALL iom_rstput( kt, nitdin_r, inum, 'sshn' , sshn ) 156 149 #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(:,:) )150 IF( nn_ice == 2 .OR. nn_ice == 3 ) THEN 151 IF( ALLOCATED(frld) ) THEN 152 CALL iom_rstput( kt, nitdin_r, inum, 'iceconc', 1._wp - frld(:,:) ) 160 153 ELSE 161 CALL ctl_warn('Ice concentration not written to background as ice variable frld not allocated on this timestep')162 ENDIF154 CALL ctl_warn('Ice concentration not written to background as ice variable frld not allocated on this timestep') 155 ENDIF 163 156 ENDIF 164 157 #endif
Note: See TracChangeset
for help on using the changeset viewer.