Changeset 9721


Ignore:
Timestamp:
2018-06-01T09:55:23+02:00 (2 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:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r9710 r9721  
    314314      vmask_i_diag(:,:,:) = 1.0 
    315315      vmask_i_diag(:,2:jpjm1,:) = tmask(:,2:jpjm1,:) + tmask(:,3:jpj,:) 
    316       CALL lbc_lnk( vmask_i_diag, 'V', 1. ) 
    317  
    318316      CALL lbc_lnk( vmask_i_diag, 'V', 1. ) 
    319317 
  • branches/UKMO/dev_r5518_GO6_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r9707 r9721  
    14041404         SELECT CASE ( cdgrd ) 
    14051405         ! The masks applied here are specifically used to mask out duplicate  
    1406          ! data poits in wrap columns and N-fold rows in order to ensure bit  
    1407          ! comparison of diagnostics which have not undergone an explicit 
    1408          ! lbc_lnk prior to writing and which are thus prone to junk in  
    1409          ! in these duplicate points since they are not usually explicitly  
    1410          ! involved in field computation.  
     1406         ! data points in wrap columns and N-fold rows in order to ensure bit  
     1407         ! reproducibility of diagnostics which have not undergone an explicit 
     1408         ! lbc_lnk prior to writing. Such fields are prone to junk values at  
     1409         ! duplicate points since those points are often excluded from the  
     1410         ! core field computation process.  
    14111411         CASE('T')    
    14121412            zmask(:,:,:) = tmask_i_diag(:,:,:) 
Note: See TracChangeset for help on using the changeset viewer.