Changeset 13453 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
- Timestamp:
- 2020-09-08T12:38:36+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r13451 r13453 158 158 END DO 159 159 #else 160 IF( lk_asminc ) THEN161 IF( ln_bkgwri ) CALL asm_bkg_wri( nit000 - 1 ) ! Output background fields162 IF( ln_asmdin ) THEN ! Direct initialization163 IF( ln_trainc ) CALL tra_asm_inc( nit000 - 1 ) ! Tracers164 IF( ln_dyninc ) CALL dyn_asm_inc( nit000 - 1 ) ! Dynamics165 IF( ln_sshinc ) CALL ssh_asm_inc( nit000 - 1 ) ! SSH166 IF( lk_bgcinc ) CALL bgc_asm_inc( nit000 - 1 ) ! BGC167 ENDIF168 ENDIF160 !IF( lk_asminc ) THEN 161 ! IF( ln_bkgwri ) CALL asm_bkg_wri( nit000 - 1 ) ! Output background fields 162 ! IF( ln_asmdin ) THEN ! Direct initialization 163 ! IF( ln_trainc ) CALL tra_asm_inc( nit000 - 1 ) ! Tracers 164 ! IF( ln_dyninc ) CALL dyn_asm_inc( nit000 - 1 ) ! Dynamics 165 ! IF( ln_sshinc ) CALL ssh_asm_inc( nit000 - 1 ) ! SSH 166 ! IF( lk_bgcinc ) CALL bgc_asm_inc( nit000 - 1 ) ! BGC 167 ! ENDIF 168 !ENDIF 169 169 170 170 #if defined key_agrif … … 497 497 498 498 ! ! Assimilation increments 499 IF( lk_asminc ) THEN500 #if defined key_shelf501 CALL zdf_mxl_tref() ! Initialization of hmld_tref502 #endif503 CALL asm_inc_init ! Initialize assimilation increments504 ENDIF499 ! IF( lk_asminc ) THEN 500 !#if defined key_shelf 501 ! CALL zdf_mxl_tref() ! Initialization of hmld_tref 502 !#endif 503 ! CALL asm_inc_init ! Initialize assimilation increments 504 ! ENDIF 505 505 506 506 IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler
Note: See TracChangeset
for help on using the changeset viewer.