- Timestamp:
- 2014-02-04T13:11:47+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/arpdebugging.f90
r3837 r4403 12 12 13 13 SUBROUTINE dump_rarray(count, name, field1, field2, withHalos, & 14 toGlobal )14 toGlobal, atStep) 15 15 IMPLICIT none 16 16 INTEGER, INTENT(in) :: count ! What timestep we're on … … 20 20 LOGICAL, INTENT(in), OPTIONAL :: withHalos 21 21 LOGICAL, INTENT(in), OPTIONAL :: toGlobal 22 INTEGER, INTENT(in), OPTIONAL :: atStep 22 23 ! Locals 23 24 INTEGER :: ji, jj … … 28 29 CHARACTER (LEN=13), PARAMETER :: fmt_var = "(2I4,2E18.10)" 29 30 31 IF(PRESENT(atStep))THEN 32 ! If this isn't the desired time-step to dump then don't 33 IF(count /= atStep)RETURN 34 END IF 35 30 36 IF(PRESENT(field2))THEN 31 37 shape1= SHAPE(field1) … … 128 134 129 135 SUBROUTINE dump_iarray(count, name, field1, field2, withHalos, & 130 toGlobal )136 toGlobal, atStep) 131 137 IMPLICIT none 132 138 INTEGER, INTENT(in) :: count ! What timestep we're on … … 136 142 LOGICAL, INTENT(in), OPTIONAL :: withHalos 137 143 LOGICAL, INTENT(in), OPTIONAL :: toGlobal 144 INTEGER, INTENT(in), OPTIONAL :: atStep 138 145 ! Locals 139 146 INTEGER :: ji, jj … … 144 151 CHARACTER (LEN=13), PARAMETER :: fmt_var = "(2I4,(I6))" 145 152 153 IF(PRESENT(atStep))THEN 154 ! If this isn't the desired time-step to dump then don't 155 IF(count /= atStep)RETURN 156 END IF 157 146 158 IF(PRESENT(field2))THEN 147 159 shape1= SHAPE(field1)
Note: See TracChangeset
for help on using the changeset viewer.