Changeset 2876 for branches/2011
- Timestamp:
- 2011-09-29T17:36:24+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/FLO/flowri.F90
r2844 r2876 40 40 ! member arrays. 41 41 REAL(wp), ALLOCATABLE, DIMENSION(:) :: zlon , zlat, zdep ! 2D workspace 42 REAL(wp), ALLOCATABLE, DIMENSION(:) :: ztem , zsal, zrho ! 2D workspace42 REAL(wp), ALLOCATABLE, DIMENSION(:) :: ztem , zsal, zrho ! 2D workspace 43 43 44 44 !! * Substitutions … … 194 194 IF( ( kt == nn_it000 .OR. MOD( kt,nn_writefl)== 0 ) .AND. lwp )THEN 195 195 196 !II- 2-a Open ascii file196 !II-1-a Open ascii file 197 197 !---------------------- 198 198 IF( kt == nn_it000 ) THEN … … 202 202 ENDIF 203 203 204 !II I-2-b Write in ascii file204 !II-1-b Write in ascii file 205 205 !----------------------------- 206 206 WRITE(numfl,*) zlon,zlat,zdep,nisobfl,ngrpfl,ztem,zsal, FLOAT(ndastp) 207 207 208 208 209 !II I-2-c Close netcdf file209 !II-1-c Close netcdf file 210 210 !------------------------- 211 211 IF( kt == nitend ) CLOSE( numfl ) … … 214 214 215 215 !----------------------------------------------------- 216 ! II I-Write in netcdf file216 ! II-2 Write in netcdf file 217 217 !----------------------------------------------------- 218 218 219 219 ELSE 220 221 !II-2-a Write with IOM 222 !---------------------- 220 223 221 224 #if defined key_iomput … … 229 232 #else 230 233 231 !II I-2Write with IOIPSL232 !---------------------- 234 !II-2-b Write with IOIPSL 235 !------------------------ 233 236 234 237 IF( ( kt == nn_it000 .OR. MOD( kt,nn_writefl)== 0 ) .AND. lwp )THEN 235 238 236 239 237 !II I-2-aOpen netcdf file238 !----------------------- 240 !II-2-b-1 Open netcdf file 241 !------------------------- 239 242 IF( kt==nn_it000 )THEN ! Create and open 240 243 … … 262 265 ENDIF 263 266 264 !II I-2-bWrite in netcdf file265 !----------------------------- 267 !II-2-b-2 Write in netcdf file 268 !------------------------------- 266 269 irec = INT( (kt-nn_it000+1)/nn_writefl ) +1 267 270 ztime = ( kt-nn_it000 + 1 ) * rdt … … 283 286 ENDDO 284 287 285 !II I-2-cClose netcdf file286 !------------------------- 288 !II-2-b-3 Close netcdf file 289 !--------------------------- 287 290 CALL flioclo( numfl ) 288 291
Note: See TracChangeset
for help on using the changeset viewer.