Changeset 7207 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90

Timestamp:

2016-11-08T14:26:53+01:00 (7 years ago)

Author:

cbricaud

Message:

commit modif for CRS; run with/without CRS

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90 (modified) (3 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90

@@ -201 +201 @@
      CALL crs_dom_sfc( vmask, 'V', e1e3v_crs, e1e3v_msk, p_e1=e1v, p_e3=zfse3v )
 
+     !cbr utile ????????????????????????????????
      DO jk=1,jpk
         DO ji=1,jpi_crs
@@ -221 +222 @@
      CALL crs_dom_e3( e1u, e2u, zfse3u, p_sfc_2d_crs=e2u_crs  , cd_type='U', p_mask=umask, p_e3_crs=e3u_0_crs, p_e3_max_crs=e3u_max_0_crs)
      CALL crs_dom_e3( e1v, e2v, zfse3v, p_sfc_2d_crs=e1v_crs  , cd_type='V', p_mask=vmask, p_e3_crs=e3v_0_crs, p_e3_max_crs=e3v_max_0_crs)
+
      WHERE(e3t_max_0_crs == 0._wp) e3t_max_0_crs=r_inf
      WHERE(e3u_max_0_crs == 0._wp) e3u_max_0_crs=r_inf
@@ -257 +259 @@
      ENDDO
 
+!cbr utile ???????? on le fait ds crsfld, nan ?
 #if defined key_vvl
      e3t_b_crs(:,:,:) = e3t_0_crs(:,:,:)