Changeset 2128 for branches/devukmo2010/NEMO/OPA_SRC/opa.F90
- Timestamp:
- 2010-09-28T14:29:51+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/devukmo2010/NEMO/OPA_SRC/opa.F90
r1793 r2128 25 25 !! - ! 2007-07 (J. Chanut, A. Sellar) Unstructured open boundaries (BDY) 26 26 !! 3.2 ! 2009-08 (S. Masson) open/write in the listing file in mpp 27 !! 3.3 ! 2010-05 (K. Mogensen, A. Weaver, M. Martin, D. Lea) Assimilation interface 27 28 !!---------------------------------------------------------------------- 28 29 … … 53 54 USE phycst ! physical constant (par_cst routine) 54 55 USE trdmod ! momentum/tracers trends (trd_mod_init routine) 56 USE asminc ! assimilation increments (asm_inc_init routine) 57 USE asmtrj ! writing out state trajectory 58 USE sshwzv ! vertical velocity used in asm 55 59 USE diaptr ! poleward transports (dia_ptr_init routine) 56 60 USE step ! OPA time-stepping (stp routine) … … 133 137 END DO 134 138 ELSE !== 3D ocean with ==! 139 IF( lk_asminc ) THEN 140 IF( ln_bkgwri ) CALL asm_bkg_wri( nit000 - 1 ) ! Output background fields 141 IF( ln_trjwri ) CALL asm_trj_wri( nit000 - 1 ) ! Output trajectory fields 142 IF( ln_asmdin ) THEN ! Direct initialization 143 IF( ln_trainc ) CALL tra_asm_inc( nit000 - 1 ) ! Tracers 144 IF( ln_dyninc ) THEN 145 CALL dyn_asm_inc( nit000 - 1 ) ! Dynamics 146 IF ( ln_asmdin ) CALL ssh_wzv ( nit000 - 1 ) ! update vertical velocity 147 ENDIF 148 IF( ln_sshinc ) CALL ssh_asm_inc( nit000 - 1 ) ! SSH 149 ENDIF 150 ENDIF 151 135 152 DO WHILE ( istp <= nitend .AND. nstop == 0 ) 136 153 #if defined key_agrif … … 279 296 CALL dia_ptr_init ! Poleward TRansports initialization 280 297 CALL trd_mod_init ! Mixed-layer/Vorticity/Integral constraints trends 298 299 IF( lk_asminc ) CALL asm_inc_init ! Initialize assimilation increments 300 IF(lwp) WRITE(numout,*)'Euler time step switch is ', neuler 301 281 302 ! 282 303 END SUBROUTINE opa_init
Note: See TracChangeset
for help on using the changeset viewer.