- Timestamp:
- 2016-12-28T17:26:05+01:00 (7 years ago)
- Location:
- branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90
r7332 r7520 708 708 !! Arguments 709 709 REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: p_fld ! T, U, V or W on parent grid 710 CHARACTER(len= 3), INTENT(in) :: cd_op ! Operation SUM, MAX or MIN710 CHARACTER(len=*), INTENT(in) :: cd_op ! Operation SUM, MAX or MIN 711 711 CHARACTER(len=1), INTENT(in) :: cd_type ! grid type U,V 712 712 REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in) :: p_mask ! Parent grid T,U,V mask … … 729 729 p_fld_crs(:,:) = 0.0 730 730 731 SELECT CASE ( cd_op)731 SELECT CASE ( TRIM(cd_op) ) 732 732 733 733 CASE ( 'VOL' ) -
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsfld.F90
r7398 r7520 316 316 317 317 CALL crs_dom_ope( qsr , 'SUM', 'T', tmask, qsr_crs , p_e12=e1e2t, p_surf_crs=e1e2t_crs, psgn=1.0 ) 318 #if defined key_vvl 319 CALL crs_dom_ope( gdepw_n, 'MAX', 'W', tmask, gdepw_n_crs, p_e3=zfse3w, psgn=1.0 ) 320 #else 321 CALL crs_dom_ope( gdepw_0, 'MAX', 'W', tmask, gdepw_0_crs, p_e3=zfse3w, psgn=1.0 ) 322 #endif 318 323 319 CALL crs_dom_ope( emp ,'SUM', 'T', tmask, emp_crs , p_e12=e1e2t, p_surf_crs=e1e2t_crs, psgn=1.0 ) 324 320 CALL crs_dom_ope( fmmflx,'SUM', 'T', tmask, fmmflx_crs, p_e12=e1e2t, p_surf_crs=e1e2t_crs, psgn=1.0 ) 325 321 CALL crs_dom_ope( sfx ,'SUM', 'T', tmask, sfx_crs , p_e12=e1e2t, p_surf_crs=e1e2t_crs, psgn=1.0 ) 322 326 323 CALL crs_dom_ope( fr_i ,'SUM', 'T', tmask, fr_i_crs , p_e12=e1e2t, p_surf_crs=e1e2t_crs, psgn=1.0 ) 324 fr_i_crs=MAX( 0._wp, MIN( fr_i_crs , 1._wp ) ) 327 325 328 326 z2d=REAL(nmln,wp) -
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90
r7256 r7520 15 15 !! surface boundary condition 16 16 !!---------------------------------------------------------------------- 17 USE oce ! ocean dynamics and tracers18 17 USE dom_oce ! ocean space and time domain 19 18 USE phycst ! ??? … … 24 23 USE wrk_nemo ! work arrays 25 24 USE lbclnk ! ocean lateral boundary conditions (C1D case) 26 USE ioipsl, ONLY :ymds2ju, ju2ymds ! for calendar27 USE sbc_oce 25 USE ioipsl, ONLY : ymds2ju, ju2ymds ! for calendar 26 USE sbc_oce, ONLY : nn_components,nn_lsm,jp_iam_sas 28 27 29 28 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.