Changeset 4475
- Timestamp:
- 2014-02-04T13:18:50+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r4468 r4475 789 789 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~' 790 790 ! 791 CALL dump_array(0, 'mbathy', mbathy, withHalos=.TRUE.)791 !CALL dump_array(0, 'mbathy', mbathy, withHalos=.TRUE.) 792 792 793 793 mbkt(:,:) = MAX( mbathy(:,:) , 1 ) ! bottom k-index of T-level (=1 over land) … … 830 830 END DO 831 831 832 CALL dump_array(0, 'mbkmax', mbkmax)832 !CALL dump_array(0, 'mbkmax', mbkmax) 833 833 834 834 ! mbkmax computed in mpp_init3 because needed before ANY halo … … 1484 1484 ENDIF 1485 1485 1486 CALL dump_array(0, 'hbatt', hbatt, withHalos=.FALSE.)1486 !CALL dump_array(0, 'hbatt', hbatt, withHalos=.FALSE.) 1487 1487 1488 1488 ! ! ==============================
Note: See TracChangeset
for help on using the changeset viewer.