Changeset 1185
- Timestamp:
- 2008-09-11T19:32:28+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90
r1152 r1185 25 25 USE p4zlys ! 26 26 USE p4zflx ! 27 28 USE sedmodel 27 29 28 30 IMPLICIT NONE … … 88 90 CALL lbc_lnk( tra(:,:,:,jn), 'T', 1. ) 89 91 END DO 92 93 #if defined key_sed 94 95 CALL sed_model( kt ) ! Main program of Sediment model 96 97 DO jn = jp_pcs0, jp_pcs1 98 CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. ) 99 END DO 100 101 #endif 102 90 103 ! 91 104 END SUBROUTINE trc_sms_pisces
Note: See TracChangeset
for help on using the changeset viewer.