- Timestamp:
- 2009-02-03T15:20:37+01:00 (15 years ago)
- Location:
- trunk/NEMO/TOP_SRC/SED
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/SED/sedini.F90
r1264 r1290 76 76 !!---------------------------------------------------------------------- 77 77 INTEGER :: ji, jj, ikt 78 CHARACTER (len= 28) :: csedname78 CHARACTER (len=40) :: csedout 79 79 #if defined key_sed_off 80 80 INTEGER :: numblt … … 88 88 !--------------------------------------- 89 89 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 ) 92 93 93 94 WRITE(numsed,*) … … 226 227 #if defined key_sed_off 227 228 REAL(wp) , DIMENSION (jpi,jpj) :: zdta 228 INTEGER :: numpres = 52229 INTEGER :: numpres 229 230 #endif 230 231 !---------------------------------------------------------- … … 428 429 429 430 INTEGER :: jn, jn1 430 431 CHARACTER(len=40) :: csednam 431 432 !------------------------------------------------------- 432 433 … … 441 442 442 443 ! 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 ) 445 448 446 449 dtsed = rdt -
trunk/NEMO/TOP_SRC/SED/sedmodel.F90
r1264 r1290 14 14 !! * Routine accessibility 15 15 PUBLIC sed_model ! called by step.F90 16 17 LOGICAL, PUBLIC, PARAMETER :: lk_sed = .TRUE. !: sediment flag 16 18 17 19 CONTAINS … … 33 35 34 36 35 ! 36 ! Initialization of sediment model 37 ! ----------------------------------- 37 IF( kt == nit000 ) CALL sed_init ! Initialization of sediment model 38 38 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 46 40 47 41 … … 52 46 !! MODULE sedmodel : Dummy module 53 47 !!====================================================================== 48 LOGICAL, PUBLIC, PARAMETER :: lk_sed = .FALSE. !: sediment flag 54 49 CONTAINS 55 50 SUBROUTINE sed_model( kt ) ! Empty routine
Note: See TracChangeset
for help on using the changeset viewer.