Changeset 9721 for branches/UKMO

Timestamp:

2018-06-01T09:55:23+02:00 (6 years ago)

Author:

frrh

Message:

Tidy comments and remove duplicate lbc_lnk. No further testing necessary.

Location:

branches/UKMO/dev_r5518_GO6_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC

Files:

• DOM/dommsk.F90 (modified) (1 diff)
• IOM/iom.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -314 +314 @@
       vmask_i_diag(:,:,:) = 1.0
       vmask_i_diag(:,2:jpjm1,:) = tmask(:,2:jpjm1,:) + tmask(:,3:jpj,:)
-      CALL lbc_lnk( vmask_i_diag, 'V', 1. )
-
       CALL lbc_lnk( vmask_i_diag, 'V', 1. )
 

branches/UKMO/dev_r5518_GO6_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -1404 +1404 @@
          SELECT CASE ( cdgrd )
          ! The masks applied here are specifically used to mask out duplicate 
-         ! data poits in wrap columns and N-fold rows in order to ensure bit 
-         ! comparison of diagnostics which have not undergone an explicit
-         ! lbc_lnk prior to writing and which are thus prone to junk in 
-         ! in these duplicate points since they are not usually explicitly 
-         ! involved in field computation. 
+         ! data points in wrap columns and N-fold rows in order to ensure bit 
+         ! reproducibility of diagnostics which have not undergone an explicit
+         ! lbc_lnk prior to writing. Such fields are prone to junk values at 
+         ! duplicate points since those points are often excluded from the 
+         ! core field computation process. 
          CASE('T')   
             zmask(:,:,:) = tmask_i_diag(:,:,:)