Changeset 2930 for branches/2011/dev_r2802_NOCL_Smagorinsky
- Timestamp:
- 2011-10-16T09:51:00+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_NOCL_Smagorinsky/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_c3d.h90
r2926 r2930 108 108 CALL lbc_lnk( aeiv, 'V', 1. ) 109 109 CALL lbc_lnk( aeiw, 'W', 1. ) 110 # endif 111 112 IF(lwp .AND. ld_print ) THEN 110 IF(lwp .AND. ld_print ) THEN 113 111 WRITE(numout,*) 114 112 WRITE(numout,*) 'inildf: aeiu at k = 1' … … 121 119 CALL prihre(aeiw(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout) 122 120 ENDIF 123 ! 121 122 # endif 123 124 124 END SUBROUTINE ldf_tra_c3d
Note: See TracChangeset
for help on using the changeset viewer.