Changeset 8012 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90
- Timestamp:
- 2017-05-10T09:47:35+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90
r7996 r8012 85 85 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fslown, fslowc 86 86 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fslownflux, fslowcflux 87 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fregen,fregensi 87 88 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fregenfast,fregenfastsi 88 89 # if defined key_roam … … 309 310 fdpn2(jpi,jpj),fdpd2(jpi,jpj),fdpds2(jpi,jpj), & 310 311 fdzmi2(jpi,jpj),fdzme2(jpi,jpj), & 311 fslown(jpi,jpj), fslowc(jpi,jpj),&312 fslown(jpi,jpj),fslowc(jpi,jpj), & 312 313 fslownflux(jpi,jpj),fslowcflux(jpi,jpj), & 314 fregen(jpi,jpj),fregensi(jpi,jpj), & 313 315 fregenfast(jpi,jpj),fregenfastsi(jpi,jpj), & 314 316 # if defined key_roam
Note: See TracChangeset
for help on using the changeset viewer.