Changeset 850
- Timestamp:
- 2008-03-13T14:38:38+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_GM/NEMO/TOP_SRC/trcsms.F90
r777 r850 21 21 USE trcsed 22 22 USE trcexp 23 USE p4zprg 23 24 24 25 IMPLICIT NONE … … 92 93 ! ------------------------ 93 94 94 CALL p4z prg( kt ) ! main program of PISCES95 CALL p4z_prg( kt ) ! main program of PISCES 95 96 96 97 … … 107 108 108 109 IF(ln_ctl) THEN ! print mean trends (used for debugging) 109 WRITE(charout, FMT="(' SMS')")110 WRITE(charout, FMT="('sms ')") 110 111 CALL prt_ctl_trc_info( charout ) 111 CALL prt_ctl_trc( tab4d=tr a, mask=tmask, clinfo=ctrcnm )112 CALL prt_ctl_trc( tab4d=trn, mask=tmask, clinfo=ctrcnm ) 112 113 ENDIF 113 114 !
Note: See TracChangeset
for help on using the changeset viewer.