Changeset 777 for branches/dev_001_GM/NEMO/TOP_SRC/trcsms.F90
- Timestamp:
- 2007-12-19T19:40:57+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_GM/NEMO/TOP_SRC/trcsms.F90
r772 r777 17 17 USE trccfc ! CFC 11 & 12 18 18 USE prtctl_trc ! Print control for debbuging 19 USE trcbio 20 USE trcopt 21 USE trcsed 22 USE trcexp 19 23 20 24 IMPLICIT NONE … … 51 55 ! ------------------------ 52 56 53 CALL trc opt( kt ) ! optical model57 CALL trc_opt( kt ) ! optical model 54 58 55 59 IF(ln_ctl) THEN ! print mean trends (used for debugging) … … 59 63 ENDIF 60 64 61 CALL trc bio( kt ) ! biological model65 CALL trc_bio( kt ) ! biological model 62 66 63 67 IF(ln_ctl) THEN ! print mean trends (used for debugging) … … 67 71 ENDIF 68 72 69 CALL trc sed( kt ) ! sedimentation model73 CALL trc_sed( kt ) ! sedimentation model 70 74 71 75 IF(ln_ctl) THEN ! print mean trends (used for debugging) … … 75 79 ENDIF 76 80 77 CALL trc exp( kt ) ! export81 CALL trc_exp( kt ) ! export 78 82 79 83 IF(ln_ctl) THEN ! print mean trends (used for debugging)
Note: See TracChangeset
for help on using the changeset viewer.