Changeset 10050 for branches/UKMO

Timestamp:

2018-08-14T10:50:59+02:00 (6 years ago)

Author:

frrh

Message:

Update inline text, following confiormation from CERFACS about
which variables are redundant with vn4.0 of OASIS3-MCT.

File:

• branches/UKMO/dev_r5518_GO6_oasis3mct_vn4/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_GO6_oasis3mct_vn4/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

@@ -151 +151 @@
       INTEGER :: id_part
       INTEGER :: paral(5)       ! OASIS3 box partition
-      INTEGER :: ishape(4)    ! shape of arrays passed to PSMILe
+      INTEGER :: ishape(4)      ! Shape of arrays passed to PSMILe. 
+                                ! Redundant from OASIS3-MCT vn4.0 onwards but required
+                                ! to satisfy interface and for backward compatibility. 
       INTEGER :: var_nodims(2)  ! Number of coupling field dimensions.
-                                ! var_nodims(1) is redundant with OASIS3-MCT vn4.0 but retained
-                                ! for backwards compatibility. var_nodims(2) is the number of
-                                ! fields in a bundle or 1 for unbundled fields. 
+                                ! var_nodims(1) is redundant from OASIS3-MCT vn4.0 onwards
+                                ! but retained for backward compatibility. 
+                                ! var_nodims(2) is the number of fields in a bundle 
+                                ! or 1 for unbundled fields (bundles are not yet catered for
+                                ! in NEMO hence we default to 1).  
       INTEGER :: ji,jc,jm       ! local loop indicees
       CHARACTER(LEN=64) :: zclname
@@ -255 +259 @@
                   ! ... Set the field dimension and bundle count
                   var_nodims(1) = 2
-                  var_nodims(2) = 1 ! Make this variable to cater for bundled fields.    
+                  var_nodims(2) = 1 ! Modify this value to cater for bundled fields.    
 
                   CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part   , var_nodims,   &
@@ -305 +309 @@
                   ! ... Set the field dimension and bundle count
                   var_nodims(1) = 2
-                  var_nodims(2) = 1 ! Make this variable to cater for bundled fields.    
+                  var_nodims(2) = 1 ! Modify this value to cater for bundled fields.    
 
                   CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part   , var_nodims,   &