Changeset 3497 for branches/2012/dev_r3452_NOCL02_Smagorinsky/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_c3d.h90

Timestamp:

2012-10-12T18:14:36+02:00 (12 years ago)

Author:

hliu

Message:

Upload code files for Smagorinsky viscosity/diffusivity work, documentation to be converted to latex format and uploaded soon. See the ticket (coming in minutes)

File:

• branches/2012/dev_r3452_NOCL02_Smagorinsky/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_c3d.h90 (modified) (2 diffs)

branches/2012/dev_r3452_NOCL02_Smagorinsky/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_c3d.h90

@@ -108 +108 @@
       CALL lbc_lnk( aeiv, 'V', 1. )
       CALL lbc_lnk( aeiw, 'W', 1. )
-# endif
-
       IF(lwp .AND. ld_print ) THEN
          WRITE(numout,*)
@@ -121 +119 @@
          CALL prihre(aeiw(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
       ENDIF
-      !
+
+# endif
    END SUBROUTINE ldf_tra_c3d