Changeset 11979 for branches/UKMO
- Timestamp:
- 2019-11-27T12:55:34+01:00 (4 years ago)
- Location:
- branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils305/NEMOGCM/NEMO/TOP_SRC/FABM
- Files:
-
- 2 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 -
branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils305/NEMOGCM/NEMO/TOP_SRC/FABM/vertical_movement_fabm.F90
r10156 r11979 104 104 c_no(2:k_floor)=abs(w_if(2:k_floor,jn))*z2dt/ & 105 105 ( 0.5_wp*(fse3t(ji,jj,2:k_floor) + & 106 fse3t(ji,j i,1:k_floor-1)) )106 fse3t(ji,jj,1:k_floor-1)) ) 107 107 cmax_no=MAXVAL(c_no(2:k_floor)) 108 108
Note: See TracChangeset
for help on using the changeset viewer.