- Timestamp:
- 2018-06-26T11:40:32+02:00 (6 years ago)
- Location:
- branches/UKMO/dev_r5518_NIWA_fix_plus/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_NIWA_fix_plus/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_update.F90
r9163 r9842 267 267 ! mort. loss 268 268 ((1.0 - xfdfrac1) * fdpds(ji,jj)) + & 269 &! egestion of grazed Si269 ! egestion of grazed Si 270 270 ((1.0 - xfdfrac3) * fgmepds(ji,jj)) + & 271 271 ! fast diss. and metab. losses -
branches/UKMO/dev_r5518_NIWA_fix_plus/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90
r9385 r9842 798 798 !! temporary variables 799 799 REAL(wp), INTENT( in ), DIMENSION(3,3) :: tiny_var, tiny_mask 800 CHARACTER( 25), INTENT( in ) :: var_nm800 CHARACTER(3), INTENT( in ) :: var_nm 801 801 REAL(wp), INTENT( in ) :: mini, maxi 802 802 REAL(wp), INTENT( out ) :: varout 803 803 REAL(wp) :: sumtsn, tsnavg 804 804 INTEGER :: summask 805 CHARACTER( 25) :: charout1, charout2805 CHARACTER(3) :: charout1, charout2 806 806 CHARACTER(60) :: charout3, charout4 807 807 INTEGER :: ii,ij -
branches/UKMO/dev_r5518_NIWA_fix_plus/NEMOGCM/NEMO/TOP_SRC/trcrst.F90
r9385 r9842 726 726 !!---------------------------------------------------------------------- 727 727 INTEGER :: ji, jj, jk, jn 728 REAL(wp) :: zsum3d, zsum2d, zinvt, zdelta, zratio, loc_ vol, loc_are728 REAL(wp) :: zsum3d, zsum2d, zinvt, zdelta, zratio, loc_are 729 729 REAL(wp) :: zq1, zq2, loc_vol, loc_area 730 730 REAL(wp), DIMENSION(jpi,jpj,jpk) :: z3d, zvol
Note: See TracChangeset
for help on using the changeset viewer.