Changeset 5702 for branches/UKMO/smagorinsky_diagnostics/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.F90

Timestamp:

2015-08-18T18:21:29+02:00 (9 years ago)

Author:

davestorkey

Message:

Add in new diagnostics.

File:

• branches/UKMO/smagorinsky_diagnostics/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.F90 (modified) (2 diffs)

branches/UKMO/smagorinsky_diagnostics/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.F90

@@ -181 +181 @@
       CALL lbc_lnk( ahm1, 'T', 1. )   ! Lateral boundary conditions on ( ahtt )
       CALL lbc_lnk( ahm2, 'F', 1. )   ! Lateral boundary conditions on ( ahtt )
+      CALL iom_put( 'ahmu_lap_smag', ahm1(:,:,:) ) 
+      CALL iom_put( 'ahmv_lap_smag', ahm2(:,:,:) )
 
       ENDIF    ! ln_dynldf_lap
@@ -253 +255 @@
       CALL lbc_lnk( ahm3, 'U', 1. )   ! Lateral boundary conditions
       CALL lbc_lnk( ahm4, 'V', 1. )
+      CALL iom_put( 'ahmu_bilap_smag', ahm3(:,:,:) ) 
+      CALL iom_put( 'ahmv_bilap_smag', ahm4(:,:,:) )
+
    ENDIF