Changeset 13241 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/TOP_SRC/trcini.F90
- Timestamp:
- 2020-07-03T14:42:49+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r12432 r13241 76 76 ! +++>>> FABM 77 77 ! Allow FABM to update numbers of biogeochemical tracers, diagnostics (jptra etc.) 78 IF( lk_fabm ) CALL nemo_fabm_ init78 IF( lk_fabm ) CALL nemo_fabm_configure 79 79 ! FABM <<<+++ 80 80 … … 123 123 ! Initialisation of tracers Initial Conditions 124 124 IF( ln_trcdta ) CALL trc_dta_init(jptra) 125 126 125 127 126 IF( ln_rsttr ) THEN … … 162 161 ! FABM +++>>> 163 162 ! Initialisation of FABM diagnostics and tracer boundary conditions (so that you can use initial condition as boundary) 164 IF( lk_fabm ) THEN 165 wndm=0._wp !uninitiased field at this point 166 qsr=0._wp !uninitiased field at this point 167 CALL compute_fabm ! only needed to set-up diagnostics 168 CALL trc_bc_init(jptra) 169 ENDIF 163 IF( lk_fabm ) CALL trc_bc_init(jptra) 170 164 ! FABM <<<+++ 171 165 172 166 tra(:,:,:,:) = 0._wp 173 167 IF( ln_zps .AND. .NOT. lk_c1d .AND. .NOT. ln_isfcav ) & ! Partial steps: before horizontal gradient of passive
Note: See TracChangeset
for help on using the changeset viewer.