New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 777 for branches/dev_001_GM/NEMO/TOP_SRC/trcsms.F90 – NEMO

Ignore:
Timestamp:
2007-12-19T19:40:57+01:00 (16 years ago)
Author:
gm
Message:

dev_001_GM - LOBSTER in F90 encapsulation of LOBSTER routines in module - compilation OK

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_001_GM/NEMO/TOP_SRC/trcsms.F90

    r772 r777  
    1717   USE trccfc          ! CFC 11 & 12  
    1818   USE prtctl_trc      ! Print control for debbuging 
     19   USE trcbio 
     20   USE trcopt 
     21   USE trcsed 
     22   USE trcexp 
    1923 
    2024   IMPLICIT NONE 
     
    5155      ! ------------------------ 
    5256 
    53       CALL trcopt( kt )      ! optical model 
     57      CALL trc_opt( kt )      ! optical model 
    5458 
    5559      IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     
    5963      ENDIF 
    6064 
    61       CALL trcbio( kt )      ! biological model 
     65      CALL trc_bio( kt )      ! biological model 
    6266 
    6367      IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     
    6771      ENDIF 
    6872 
    69       CALL trcsed( kt )      ! sedimentation model 
     73      CALL trc_sed( kt )      ! sedimentation model 
    7074 
    7175      IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     
    7579      ENDIF 
    7680  
    77       CALL trcexp( kt )      ! export 
     81      CALL trc_exp( kt )      ! export 
    7882 
    7983      IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
Note: See TracChangeset for help on using the changeset viewer.