Changeset 11979 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils305/NEMOGCM/NEMO/TOP_SRC/FABM/trcini_fabm.F90
- Timestamp:
- 2019-11-27T12:55:34+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils305/NEMOGCM/NEMO/TOP_SRC/FABM/trcini_fabm.F90
r11545 r11979 125 125 jp_fabm_pgrow = fabm_diag_index( 'p_grow_sum_result' ) 126 126 jp_fabm_ploss = fabm_diag_index( 'p_loss_sum_result' ) 127 128 MLD_MAX(:,:) = 0.0129 PGROW_AVG(:,:) = 0.0130 PLOSS_AVG(:,:) = 0.0131 PHYT_AVG(:,:) = 0.0132 127 133 128 IF (lwp) THEN … … 437 432 ENDDO 438 433 ENDIF 434 435 ! Initialise variables required for Hemmings et al. (2008) 436 ! nitrogen balancing for chlorophyll data assimilation 437 MLD_MAX(:,:) = 0.0 438 PGROW_AVG(:,:) = 0.0 439 PLOSS_AVG(:,:) = 0.0 440 PHYT_AVG(:,:) = 0.0 439 441 440 442 END SUBROUTINE trc_ini_fabm
Note: See TracChangeset
for help on using the changeset viewer.