- Timestamp:
- 2017-03-07T19:30:03+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r7709 r7766 146 146 ztrai = ztrai + glob_sum( trn(:,:,:,jn) * cvol(:,:,:) ) 147 147 END DO 148 IF( lwp) WRITE(numstr,9300) kt, ztrai / areatot148 IF( numstr /= -1 ) WRITE(numstr,9300) kt, ztrai / areatot 149 149 9300 FORMAT(i10,e18.10) 150 150 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.