Changeset 2887 for branches/2011/dev_r2802_NOCL_Smagorinsky/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_c3d.h90

Timestamp:

2011-10-05T11:16:29+02:00 (13 years ago)

Author:

hliu

Message:

addition and modification of files for Smagorinsky method. for Maria Luneva

File:

• branches/2011/dev_r2802_NOCL_Smagorinsky/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_c3d.h90 (modified) (3 diffs)

branches/2011/dev_r2802_NOCL_Smagorinsky/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_c3d.h90

@@ -89 +89 @@
       ENDIF
 
-# if defined key_traldf_eiv
+# if defined key_traldf_eiv 
       aeiu(:,:,:) = aeiv0            ! set aeiu = aeiv at u- and v-points,
       aeiv(:,:,:) = aeiv0            ! and aeiw at w-point
@@ -108 +108 @@
       CALL lbc_lnk( aeiv, 'V', 1. )
       CALL lbc_lnk( aeiw, 'W', 1. )
-# endif
 
       IF(lwp .AND. ld_print ) THEN
@@ -121 +120 @@
          CALL prihre(aeiw(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
       ENDIF
+# endif
       !
    END SUBROUTINE ldf_tra_c3d