- Timestamp:
- 2020-11-06T12:08:40+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DIA/diawri.F90
r13605 r13734 1036 1036 !! 1037 1037 INTEGER :: inum, jk 1038 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ze3t, zgdept ! 3D workspace !!st patch to usesubstitution1038 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ze3t, zgdept ! 3D workspace for qco substitution 1039 1039 !!---------------------------------------------------------------------- 1040 1040 !
Note: See TracChangeset
for help on using the changeset viewer.