Changeset 1185


Ignore:
Timestamp:
2008-09-11T19:32:28+02:00 (12 years ago)
Author:
cetlod
Message:

update PISCES modules to couple with the sediment model, see ticket:249

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90

    r1152 r1185  
    2525   USE p4zlys          !  
    2626   USE p4zflx          !  
     27 
     28   USE sedmodel 
    2729 
    2830   IMPLICIT NONE 
     
    8890        CALL lbc_lnk( tra(:,:,:,jn), 'T', 1. ) 
    8991      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 
    90103      ! 
    91104   END SUBROUTINE trc_sms_pisces 
Note: See TracChangeset for help on using the changeset viewer.