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 10222 for NEMO/trunk/src/TOP/PISCES/SED/sedmodel.F90 – NEMO

Ignore:
Timestamp:
2018-10-25T11:42:23+02:00 (5 years ago)
Author:
aumont
Message:

update of the sediment module + enhancement, bug correction in PISCES generating O2 negative values

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/PISCES/SED/sedmodel.F90

    r7646 r10222  
    11MODULE sedmodel 
    2 #if defined key_sed 
    32   !!====================================================================== 
    43   !!                       ***  MODULE sedmodel   *** 
     
    65   !!====================================================================== 
    76   USE sed 
    8    USE sedini   ! sediment variables initialization 
    97   USE sedstp   ! time stepping 
     8   USE sedinitrc 
    109 
    1110   IMPLICIT NONE 
     
    3332 
    3433 
    35       IF( kt == nittrc000 ) CALL sed_init       ! Initialization of sediment model 
     34      IF( ln_timing )  CALL timing_start('sed_model') 
    3635 
    37                          CALL sed_stp( kt )  ! Time stepping of Sediment model 
     36      IF( kt == nittrc000 ) CALL sed_initrc       ! Initialization of sediment model 
     37                            CALL sed_stp( kt )  ! Time stepping of Sediment model 
    3838 
     39      IF( ln_timing )  CALL timing_stop('sed_model') 
    3940 
    4041   END SUBROUTINE sed_model 
    4142 
    42 #else 
    43    !!====================================================================== 
    44    !! MODULE sedmodel  :   Dummy module  
    45    !!====================================================================== 
    46 CONTAINS 
    47    SUBROUTINE sed_model( kt )         ! Empty routine 
    48       INTEGER, INTENT(in) :: kt 
    49       WRITE(*,*) 'sed_stp: You should not have seen this print! error?', kt 
    50    END SUBROUTINE sed_model 
    51 #endif 
    52  
    5343END MODULE sedmodel 
Note: See TracChangeset for help on using the changeset viewer.