Changeset 1290


Ignore:
Timestamp:
2009-02-03T15:20:37+01:00 (12 years ago)
Author:
cetlod
Message:

open files with subroutine ctlopn in sediment model, see ticket:319

Location:
trunk/NEMO/TOP_SRC/SED
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/SED/sedini.F90

    r1264 r1290  
    7676      !!---------------------------------------------------------------------- 
    7777      INTEGER :: ji, jj, ikt 
    78       CHARACTER (len=28) :: csedname  
     78      CHARACTER (len=40) :: csedout 
    7979#if defined key_sed_off 
    8080      INTEGER  :: numblt          
     
    8888      !--------------------------------------- 
    8989 
    90       csedname = 'sediment.output' 
    91       CALL ctlopn( numsed, csedname, 'OLD', 'FORMATTED', 'SEQUENTIAL', 1, numout, .FALSE., 1 ) 
     90      csedout = 'sediment.output' 
     91      CALL ctlopn( numsed, csedout, 'OLD', 'FORMATTED', 'SEQUENTIAL', & 
     92      &            1, numout, .FALSE., 1 ) 
    9293 
    9394      WRITE(numsed,*) 
     
    226227#if defined key_sed_off 
    227228      REAL(wp) , DIMENSION (jpi,jpj) :: zdta 
    228       INTEGER  ::  numpres = 52 
     229      INTEGER  ::  numpres 
    229230#endif 
    230231      !----------------------------------------------------------  
     
    428429 
    429430      INTEGER :: jn, jn1 
    430  
     431      CHARACTER(len=40) :: csednam 
    431432      !------------------------------------------------------- 
    432433 
     
    441442 
    442443      ! Reading namelist.sed variables 
    443       !--------------------------------------- 
    444       OPEN( UNIT = numnamsed, FILE = 'namelist.sediment', FORM = 'FORMATTED', STATUS = 'OLD' ) 
     444      !--------------------------------- 
     445      csednam = 'namelist.sediment' 
     446      CALL ctlopn( numnamsed, csednam, 'OLD', 'FORMATTED', 'SEQUENTIAL',   & 
     447         &         1, numout, .FALSE., 1 ) 
    445448 
    446449      dtsed = rdt 
  • trunk/NEMO/TOP_SRC/SED/sedmodel.F90

    r1264 r1290  
    1414   !! * Routine accessibility 
    1515   PUBLIC sed_model  ! called by step.F90 
     16 
     17   LOGICAL, PUBLIC, PARAMETER ::   lk_sed = .TRUE.     !: sediment flag 
    1618 
    1719CONTAINS 
     
    3335 
    3436 
    35       ! 
    36       !  Initialization of sediment model 
    37       ! ----------------------------------- 
     37      IF( kt == nit000 ) CALL sed_init       ! Initialization of sediment model 
    3838 
    39       IF( kt == nit000 ) CALL sed_init 
    40  
    41  
    42       !! Time stepping of Sediment model 
    43       !!----------------------------------- 
    44  
    45       CALL sed_stp( kt ) 
     39                         CALL sed_stp( kt )  ! Time stepping of Sediment model 
    4640 
    4741 
     
    5246   !! MODULE sedmodel  :   Dummy module  
    5347   !!====================================================================== 
     48   LOGICAL, PUBLIC, PARAMETER ::   lk_sed = .FALSE.     !: sediment flag 
    5449CONTAINS 
    5550   SUBROUTINE sed_model( kt )         ! Empty routine 
Note: See TracChangeset for help on using the changeset viewer.