Changeset 12524 for NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/trcini_pisces.F90
- Timestamp:
- 2020-03-09T14:42:03+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/trcini_pisces.F90
r10817 r12524 112 112 IF( ln_p4z ) THEN 113 113 ierr = ierr + p4z_prod_alloc() 114 ierr = ierr + p4z_meso_alloc() 114 115 ELSE 115 116 ierr = ierr + p5z_lim_alloc() 116 117 ierr = ierr + p5z_prod_alloc() 118 ierr = ierr + p5z_meso_alloc() 117 119 ENDIF 118 120 ierr = ierr + p4z_rem_alloc()
Note: See TracChangeset
for help on using the changeset viewer.