- Timestamp:
- 2014-02-04T13:13:37+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r4409 r4423 629 629 ! Local vars 630 630 INTEGER :: ierr ! Error flag 631 INTEGER :: inum ! temporary logical unit 632 INTEGER :: ii,jj,iproc ! Loop index 631 INTEGER :: ii,jj ! Loop index 633 632 CHARACTER(LEN=8) :: lstr ! Local string for reading env. var. 634 633 INTEGER :: lztrim ! Local int for " " " … … 897 896 INTEGER, DIMENSION(jpiglo,jpjglo), INTENT(inout) :: imask 898 897 ! Locals 899 INTEGER :: ii,jj898 INTEGER :: jj 900 899 INTEGER :: icentre, jcentre 901 900 INTEGER :: iwidth, iheight
Note: See TracChangeset
for help on using the changeset viewer.