Changeset 6546 for branches/UKMO/dev_r5518_MO_couple_package/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90

Timestamp:

2016-05-17T16:20:29+02:00 (8 years ago)

Author:

frrh

Message:

Commit final changes relating to manual addition of relevant code
from fcm:NEMO.xm/branches/UKMO/dev_r5107_hadgem3_mct@6355.

Note this is a subset of the total changnes... I have ecluded those which
have become or appear redundant or unnecessary.

This version bit compares with the original.

File:

• branches/UKMO/dev_r5518_MO_couple_package/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_MO_couple_package/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90

@@ -485 +485 @@
          ii = ii + 1
          IF (ii > jparray) CALL ctl_stop('STOP', 'NEMO aborted wrk_allocbase')
-                           ! increase the value of jparray (should not be needed as already very big!)      END DO
+                           ! increase the value of jparray (should not be needed as already very big!)      
+      END DO
       
       IF( SUM( tree(ii)%ishape ) == 0 ) THEN                    ! create a new branch