- Timestamp:
- 2021-07-16T20:00:12+02:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette@14244 sette 11 ^/utils/CI/sette@HEAD sette 12
-
- Property svn:externals
-
NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/PISCES/P4Z/p4zagg.F90
r14385 r15127 71 71 IF( ln_p4z ) THEN 72 72 ! 73 DO_3D( 1, 1, 1, 1, 1, jpkm1 )73 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1 ) 74 74 ! 75 75 zfact = xstep * xdiss(ji,jj,jk) … … 118 118 ! PISCES-QUOTA part 119 119 ! 120 DO_3D( 1, 1, 1, 1, 1, jpkm1 )120 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1 ) 121 121 ! 122 122 zfact = xstep * xdiss(ji,jj,jk)
Note: See TracChangeset
for help on using the changeset viewer.