Changeset 10873 for NEMO/trunk
- Timestamp:
- 2019-04-15T14:34:21+02:00 (5 years ago)
- Location:
- NEMO/trunk/src/TOP/PISCES/P4Z
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P4Z/p4zprod.F90
r10425 r10873 322 322 ! 323 323 IF( ln_ligand ) THEN 324 zpligprod1(:,:,:) = 0._wp ; zpligprod2(:,:,:) = 0._wp 324 325 DO jk = 1, jpkm1 325 326 DO jj = 1, jpj -
NEMO/trunk/src/TOP/PISCES/P4Z/p5zprod.F90
r10425 r10873 444 444 ! 445 445 IF( ln_ligand ) THEN 446 zpligprod1(:,:,:) = 0._wp ; zpligprod2(:,:,:) = 0._wp 446 447 DO jk = 1, jpkm1 447 448 DO jj = 1, jpj
Note: See TracChangeset
for help on using the changeset viewer.