Changeset 2761 for trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedwri.F90
- Timestamp:
- 2011-05-03T12:49:22+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedwri.F90
r2528 r2761 7 7 USE sed 8 8 USE sedarr 9 USE ioipsl 10 USE dianam ! build name of file (routine) 9 11 10 12 IMPLICIT NONE … … 13 15 !! * Accessibility 14 16 PUBLIC sed_wri 17 18 INTEGER :: nised 19 INTEGER :: nhorised 20 INTEGER :: ndimt52 21 INTEGER :: ndimt51 22 INTEGER :: ndepsed 23 REAL(wp) :: zjulian 24 INTEGER, ALLOCATABLE, SAVE, DIMENSION(:) :: ndext52 25 INTEGER, ALLOCATABLE, SAVE, DIMENSION(:) :: ndext51 15 26 16 27 CONTAINS … … 28 39 !! ! 06-07 (C. Ethe) original 29 40 !!---------------------------------------------------------------------- 30 !! * Local variables31 USE ioipsl32 USE dianam ! build name of file (routine)33 41 34 42 INTEGER, INTENT(in) :: kt 35 43 36 44 CHARACTER(len = 60) :: clhstnam, clop 37 INTEGER , SAVE :: nised, nhorised, ndimt52, ndimt51, ndepsed 38 REAL(wp), SAVE :: zjulian 39 INTEGER , DIMENSION(jpij*jpksed) , SAVE :: ndext52 40 INTEGER , DIMENSION(jpij) , SAVE :: ndext51 45 INTEGER :: ji, jk, js, jw, jn 41 46 REAL(wp) :: zsto,zout, zdt 42 INTEGER :: iimi, iima, ijmi, ijma,ipk, it, itmod 43 INTEGER :: jn 47 INTEGER :: iimi, iima, ijmi, ijma,ipk, it, itmod 44 48 CHARACTER(len = 20) :: cltra , cltrau 45 49 CHARACTER(len = 80) :: cltral 46 47 INTEGER :: ji, jk, js, jw48 50 REAL(wp) :: zrate 49 REAL(wp), DIMENSION(:,:) , ALLOCATABLE:: zdta, zflx51 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zdta, zflx 50 52 51 53 !!------------------------------------------------------------------- … … 54 56 ! Initialisation 55 57 ! ----------------- 56 58 IF( kt == nit000 ) ALLOCATE( ndext52(jpij*jpksed), ndext51(jpij) ) 57 59 58 60 ! Define frequency of output and means
Note: See TracChangeset
for help on using the changeset viewer.