- Timestamp:
- 2015-12-07T16:11:45+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_MetOffice_merge_2015/NEMOGCM/NEMO/OPA_SRC/oce.F90
r5930 r6012 60 60 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: gtsu, gtsv !: horizontal gradient of T, S bottom u-point 61 61 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: gru , grv !: horizontal gradient of rd at bottom u-point 62 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: aru , arv63 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: gzu , gzv64 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ge3ru, ge3rv !: horizontal gradient of T, S and rd at top v-point65 62 66 63 !! (ISF) interpolated gradient (only used for ice shelf case) … … 68 65 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: gtui, gtvi !: horizontal gradient of T, S and rd at top u-point 69 66 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: grui, grvi !: horizontal gradient of T, S and rd at top v-point 70 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: arui, arvi !: horizontal average of rd at top v-point71 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: gzui, gzvi !: horizontal gradient of z at top v-point72 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ge3rui, ge3rvi !: horizontal gradient of T, S and rd at top v-point73 67 !! (ISF) ice load 74 68 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: riceload … … 115 109 & spgu (jpi,jpj) , spgv(jpi,jpj) , & 116 110 & gtsu(jpi,jpj,jpts), gtsv(jpi,jpj,jpts), & 117 & aru(jpi,jpj) , arv(jpi,jpj) , &118 & gzu(jpi,jpj) , gzv(jpi,jpj) , &119 111 & gru(jpi,jpj) , grv(jpi,jpj) , & 120 & ge3ru(jpi,jpj) , ge3rv(jpi,jpj) , &121 112 & gtui(jpi,jpj,jpts), gtvi(jpi,jpj,jpts), & 122 & arui(jpi,jpj) , arvi(jpi,jpj) , &123 & gzui(jpi,jpj) , gzvi(jpi,jpj) , &124 & ge3rui(jpi,jpj) , ge3rvi(jpi,jpj) , &125 113 & grui(jpi,jpj) , grvi(jpi,jpj) , & 126 114 & riceload(jpi,jpj), STAT=ierr(2) )
Note: See TracChangeset
for help on using the changeset viewer.