Changeset 2715 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri_dimg.h90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri_dimg.h90
r2528 r2715 14 14 !! modif : 03/06/98 15 15 !!------------------------------------------------------------------- 16 !! * Local variables17 16 USE diawri, ONLY : dia_wri_dimg 18 17 REAL(wp),DIMENSION(1) :: zdept 19 18 20 REAL(wp) :: & 21 zsto, zsec, zjulian,zout, & 22 zindh,zinda,zindb, & 23 ztmu 24 REAL(wp), DIMENSION(jpi,jpj,jpnoumax) :: & 25 zcmo 26 REAL(wp), DIMENSION(jpi,jpj) :: & 27 zfield 28 INTEGER, SAVE :: nmoyice, & !: counter for averaging 29 & nwf !: number of fields to write on disk 19 REAL(wp) :: zsto, zsec, zjulian,zout, & 20 REAL(wp) :: zindh,zinda,zindb, ztmu 21 REAL(wp), DIMENSION(jpi,jpj,jpnoumax) :: zcmo 22 REAL(wp), DIMENSION(jpi,jpj) :: zfield 23 INTEGER, SAVE :: nmoyice !: counter for averaging 24 INTEGER, SAVE :: nwf !: number of fields to write on disk 30 25 INTEGER, SAVE,DIMENSION (:), ALLOCATABLE :: nsubindex !: subindex to be saved 31 26 ! according to namelist … … 43 38 44 39 45 INTEGER , SAVE :: & 46 nice, nhorid, ndim, niter, ndepid 47 INTEGER , DIMENSION( jpij ) , SAVE :: & 48 ndex51 40 INTEGER , SAVE :: nice, nhorid, ndim, niter, ndepid 41 INTEGER , DIMENSION( jpij ) , SAVE :: ndex51 49 42 !!------------------------------------------------------------------- 50 43 IF ( numit == nstart ) THEN
Note: See TracChangeset
for help on using the changeset viewer.