Changeset 10497 for branches/UKMO

Timestamp:

2019-01-10T15:13:30+01:00 (5 years ago)

Author:

jcastill

Message:

Add missing ) and remove empty spaces for merging purposes

Location:

branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC

Files:

• DIA/diawri.F90 (modified) (1 diff)
• SBC/sbccpl.F90 (modified) (1 diff)

branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -1115 +1115 @@
          CALL histwrite( id_i, "vovvle3t", kt, fse3t_n (:,:,:), jpi*jpj*jpk, idex )!  T-cell thickness  
       END IF
-       
+
       ! 3. Close the file
       ! -----------------

branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -1138 +1138 @@
             IF( .NOT. srcv(jpr_otx1)%laction .AND. srcv(jpr_wdrag)%laction .AND. & 
                                 ln_shelf_flx .AND. ln_cdgw .AND. nn_drag == jp_std ) & 
-               taum(:,:) = frcv(jpr_taum)%z3(:,:,1
+               taum(:,:) = frcv(jpr_taum)%z3(:,:,1)
             llnewtau = .TRUE.
          ELSE