Ignore:
Timestamp:
2018-11-21T11:25:53+01:00 (2 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: merge with trunk@10344, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/SED/sedmodel.F90

    r7646 r10345  
    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.