Changeset 10050


Ignore:
Timestamp:
2018-08-14T10:50:59+02:00 (2 years ago)
Author:
frrh
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_oasis3mct_vn4/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r10018 r10050  
    151151      INTEGER :: id_part 
    152152      INTEGER :: paral(5)       ! OASIS3 box partition 
    153       INTEGER :: ishape(4)    ! shape of arrays passed to PSMILe 
     153      INTEGER :: ishape(4)      ! Shape of arrays passed to PSMILe.  
     154                                ! Redundant from OASIS3-MCT vn4.0 onwards but required 
     155                                ! to satisfy interface and for backward compatibility.  
    154156      INTEGER :: var_nodims(2)  ! Number of coupling field dimensions. 
    155                                 ! var_nodims(1) is redundant with OASIS3-MCT vn4.0 but retained 
    156                                 ! for backwards compatibility. var_nodims(2) is the number of 
    157                                 ! fields in a bundle or 1 for unbundled fields.  
     157                                ! var_nodims(1) is redundant from OASIS3-MCT vn4.0 onwards 
     158                                ! but retained for backward compatibility.  
     159                                ! var_nodims(2) is the number of fields in a bundle  
     160                                ! or 1 for unbundled fields (bundles are not yet catered for 
     161                                ! in NEMO hence we default to 1).   
    158162      INTEGER :: ji,jc,jm       ! local loop indicees 
    159163      CHARACTER(LEN=64) :: zclname 
     
    255259                  ! ... Set the field dimension and bundle count 
    256260                  var_nodims(1) = 2 
    257                   var_nodims(2) = 1 ! Make this variable to cater for bundled fields.     
     261                  var_nodims(2) = 1 ! Modify this value to cater for bundled fields.     
    258262 
    259263                  CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part   , var_nodims,   & 
     
    305309                  ! ... Set the field dimension and bundle count 
    306310                  var_nodims(1) = 2 
    307                   var_nodims(2) = 1 ! Make this variable to cater for bundled fields.     
     311                  var_nodims(2) = 1 ! Modify this value to cater for bundled fields.     
    308312 
    309313                  CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part   , var_nodims,   & 
Note: See TracChangeset for help on using the changeset viewer.