Changeset 178 for trunk/NEMO
- Timestamp:
- 2004-11-05T15:01:57+01:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/eosbn2.F90
r130 r178 585 585 END SELECT 586 586 587 IF(l_ctl) WRITE(numout,*) ' eos2d: ', SUM( prd(1:nictl +1,1:njctl+1) )587 IF(l_ctl) WRITE(numout,*) ' eos2d: ', SUM( prd(1:nictl,1:njctl) ) 588 588 589 589 END SUBROUTINE eos_insitu_2d
Note: See TracChangeset
for help on using the changeset viewer.