Changeset 14743 for NEMO/branches
- Timestamp:
- 2021-04-23T16:27:56+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90
r14734 r14743 2784 2784 DO_2D( 0, 0, 0, 0 ) 2785 2785 IF ( kbld(ji,jj) > jkm_bld ) jkm_bld = kbld(ji,jj) 2786 IF ( k bld(ji,jj) < jkf_mld ) jkf_mld = kbld(ji,jj)2786 IF ( kmld(ji,jj) < jkf_mld ) jkf_mld = kmld(ji,jj) 2787 2787 IF ( kmld(ji,jj) > jkm_mld ) jkm_mld = kmld(ji,jj) 2788 2788 END_2D
Note: See TracChangeset
for help on using the changeset viewer.