Changeset 5845 for branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/CRS/crslbclnk.F90
- Timestamp:
- 2015-10-31T08:40:45+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/CRS/crslbclnk.F90
r5215 r5845 7 7 !!===================================================================== 8 8 !! History : ! 2012-06 (J. Simeon, G. Madec, C. Ethe, C. Calone) Original code 9 9 !!---------------------------------------------------------------------- 10 10 USE dom_oce 11 11 USE crs … … 13 13 USE par_kind, ONLY: wp 14 14 USE in_out_manager 15 16 17 15 18 16 INTERFACE crs_lbc_lnk … … 22 20 PUBLIC crs_lbc_lnk 23 21 22 !!---------------------------------------------------------------------- 23 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 24 24 !! $Id$ 25 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 26 !!---------------------------------------------------------------------- 25 27 CONTAINS 26 28 … … 35 37 !! Upon exiting, switch back to full domain indices. 36 38 !!---------------------------------------------------------------------- 37 !! Arguments38 39 CHARACTER(len=1) , INTENT(in ) :: cd_type1 ! grid type 39 40 REAL(wp) , INTENT(in ) :: psgn ! control of the sign … … 42 43 REAL(wp) , INTENT(in ), OPTIONAL :: pval ! valeur sur les halo 43 44 CHARACTER(len=3) , INTENT(in ), OPTIONAL :: cd_mpp ! MPP only (here do nothing) 44 45 !! local vairables 45 ! 46 46 LOGICAL :: ll_grid_crs 47 47 REAL(wp) :: zval ! valeur sur les halo 48 49 48 !!---------------------------------------------------------------------- 50 49
Note: See TracChangeset
for help on using the changeset viewer.