Changeset 12538 for NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zmeso.F90
- Timestamp:
- 2020-03-11T19:30:42+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zmeso.F90
r12537 r12538 91 91 IF( ln_timing ) CALL timing_start('p4z_meso') 92 92 ! 93 zgrazing(:,:,:) = 0._wp 94 zfezoo2 (:,:,:) = 0._wp 93 zgrazing(:,:,:) = 0._wp ; zgrapoc(:,:,:) = 0._wp 94 zfezoo2 (:,:,:) = 0._wp ; zgrarem(:,:,:) = 0._wp 95 zgraref (:,:,:) = 0._wp ; zgrapof(:,:,:) = 0._wp 95 96 ! 96 97 IF (ln_ligand) THEN … … 104 105 IF (ln_dvm_meso) CALL p4z_meso_depmig 105 106 ! 106 DO jk = 1, jpk m1107 DO jk = 1, jpk 107 108 DO jj = 1, jpj 108 109 DO ji = 1, jpi
Note: See TracChangeset
for help on using the changeset viewer.