Changeset 1271 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2009-01-15T09:12:00+01:00 (15 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/dommsk.F90
r1152 r1271 229 229 umask(ji,jj,jk) = tmask(ji,jj ,jk) * tmask(ji+1,jj ,jk) 230 230 vmask(ji,jj,jk) = tmask(ji,jj ,jk) * tmask(ji ,jj+1,jk) 231 END DO 232 DO ji = 1, jpim1 231 233 fmask(ji,jj,jk) = tmask(ji,jj ,jk) * tmask(ji+1,jj ,jk) & 232 234 & * tmask(ji,jj+1,jk) * tmask(ji+1,jj+1,jk) -
trunk/NEMO/OPA_SRC/IOM/iom_ioipsl.F90
r1152 r1271 287 287 !! ** Purpose : read the time axis cdvar in the file 288 288 !!-------------------------------------------------------------------- 289 INTEGER 290 INTEGER 291 INTEGER 292 CHARACTER(len=*) 293 INTEGER 294 INTEGER 295 REAL(wp) 296 REAL(wp), DIMENSION( jpk), INTENT(in), OPTIONAL :: pv_r1d ! written 1d field297 REAL(wp), DIMENSION( jpi,jpj), INTENT(in), OPTIONAL :: pv_r2d ! written 2d field298 REAL(wp), DIMENSION( jpi,jpj,jpk), INTENT(in), OPTIONAL :: pv_r3d ! written 3d field289 INTEGER , INTENT(in) :: kt ! ocean time-step 290 INTEGER , INTENT(in) :: kwrite ! writing time-step 291 INTEGER , INTENT(in) :: kiomid ! Identifier of the file 292 CHARACTER(len=*) , INTENT(in) :: cdvar ! variable name 293 INTEGER , INTENT(in) :: kvid ! variable id 294 INTEGER , INTENT(in), OPTIONAL :: ktype ! variable type (default R8) 295 REAL(wp) , INTENT(in), OPTIONAL :: pv_r0d ! written Od field 296 REAL(wp), DIMENSION( :), INTENT(in), OPTIONAL :: pv_r1d ! written 1d field 297 REAL(wp), DIMENSION(:, : ), INTENT(in), OPTIONAL :: pv_r2d ! written 2d field 298 REAL(wp), DIMENSION(:, :, :), INTENT(in), OPTIONAL :: pv_r3d ! written 3d field 299 299 ! 300 300 INTEGER :: idims ! number of dimension -
trunk/NEMO/OPA_SRC/IOM/iom_nf90.F90
r1152 r1271 313 313 !! ** Purpose : read the time axis cdvar in the file 314 314 !!-------------------------------------------------------------------- 315 INTEGER 316 INTEGER 317 INTEGER 318 CHARACTER(len=*) 319 INTEGER 320 INTEGER 321 REAL(wp) 322 REAL(wp), DIMENSION( jpk), INTENT(in), OPTIONAL :: pv_r1d ! written 1d field323 REAL(wp), DIMENSION( jpi,jpj), INTENT(in), OPTIONAL :: pv_r2d ! written 2d field324 REAL(wp), DIMENSION( jpi,jpj,jpk), INTENT(in), OPTIONAL :: pv_r3d ! written 3d field315 INTEGER , INTENT(in) :: kt ! ocean time-step 316 INTEGER , INTENT(in) :: kwrite ! writing time-step 317 INTEGER , INTENT(in) :: kiomid ! Identifier of the file 318 CHARACTER(len=*) , INTENT(in) :: cdvar ! variable name 319 INTEGER , INTENT(in) :: kvid ! variable id 320 INTEGER , INTENT(in), OPTIONAL :: ktype ! variable type (default R8) 321 REAL(wp) , INTENT(in), OPTIONAL :: pv_r0d ! written Od field 322 REAL(wp), DIMENSION( :), INTENT(in), OPTIONAL :: pv_r1d ! written 1d field 323 REAL(wp), DIMENSION(:, : ), INTENT(in), OPTIONAL :: pv_r2d ! written 2d field 324 REAL(wp), DIMENSION(:, :, :), INTENT(in), OPTIONAL :: pv_r3d ! written 3d field 325 325 ! 326 326 INTEGER :: idims ! number of dimension
Note: See TracChangeset
for help on using the changeset viewer.