- Timestamp:
- 2016-07-19T10:38:35+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5549_BDY_ZEROGRAD/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
r5215 r6808 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 … … 35 33 USE eosbn2 ! Equation of state (eos_bn2 routine) 36 34 USE zdfmxl ! Mixed layer depth 37 USE dom_oce, ONLY : ndastp 38 USE sol_oce, ONLY : gcx ! Solver variables defined in memory 35 USE dom_oce , ONLY : ndastp 39 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 … … 50 44 USE ice 51 45 #endif 46 52 47 IMPLICIT NONE 53 48 PRIVATE … … 119 114 CALL iom_rstput( kt, nitbkg_r, inum, 'en' , en ) 120 115 #endif 121 CALL iom_rstput( kt, nitbkg_r, inum, 'gcx' , gcx )122 116 ! 123 117 CALL iom_close( inum ) … … 155 149 CALL iom_rstput( kt, nitdin_r, inum, 'sshn' , sshn ) 156 150 #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(:,:) )151 IF( nn_ice == 2 .OR. nn_ice == 3 ) THEN 152 IF( ALLOCATED(frld) ) THEN 153 CALL iom_rstput( kt, nitdin_r, inum, 'iceconc', 1._wp - frld(:,:) ) 160 154 ELSE 161 CALL ctl_warn('Ice concentration not written to background as ice variable frld not allocated on this timestep')162 ENDIF155 CALL ctl_warn('Ice concentration not written to background as ice variable frld not allocated on this timestep') 156 ENDIF 163 157 ENDIF 164 158 #endif
Note: See TracChangeset
for help on using the changeset viewer.