Changeset 10425 for NEMO/trunk/src/OCE/CRS
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- Location:
- NEMO/trunk/src/OCE/CRS
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/CRS/crsdomwri.F90
r10068 r10425 69 69 ! ! ============================ 70 70 ! 71 CALL iom_open( TRIM(clnam), inum, ldwrt = .TRUE. , kiolib = jprstlib)71 CALL iom_open( TRIM(clnam), inum, ldwrt = .TRUE. ) 72 72 73 73 CALL iom_rstput( 0, 0, inum, 'tmask', tmask_crs, ktype = jp_i1 ) ! land-sea mask -
NEMO/trunk/src/OCE/CRS/crsfld.F90
r10068 r10425 164 164 END DO 165 165 END DO 166 CALL lbc_lnk( z3d, 'T', 1. )166 CALL lbc_lnk( 'crsfld', z3d, 'T', 1. ) 167 167 ! 168 168 CALL crs_dom_ope( z3d, 'VOL', 'T', tmask, zt_crs, p_e12=e1e2t, p_e3=ze3t, psgn=1.0 ) -
NEMO/trunk/src/OCE/CRS/crslbclnk.F90
r10068 r10425 55 55 IF( .NOT.ll_grid_crs ) CALL dom_grid_crs ! Save the parent grid information & Switch to coarse grid domain 56 56 ! 57 IF( PRESENT( cd_mpp ) ) THEN ; CALL lbc_lnk( pt3d1, cd_type1, psgn, cd_mpp, pval=zval )58 ELSE ; CALL lbc_lnk( pt3d1, cd_type1, psgn , pval=zval )57 IF( PRESENT( cd_mpp ) ) THEN ; CALL lbc_lnk( 'crslbclnk', pt3d1, cd_type1, psgn, cd_mpp, pval=zval ) 58 ELSE ; CALL lbc_lnk( 'crslbclnk', pt3d1, cd_type1, psgn , pval=zval ) 59 59 ENDIF 60 60 ! … … 92 92 IF( .NOT.ll_grid_crs ) CALL dom_grid_crs ! Save the parent grid information & Switch to coarse grid domain 93 93 ! 94 IF( PRESENT( cd_mpp ) ) THEN ; CALL lbc_lnk( pt2d, cd_type, psgn, cd_mpp, pval=zval )95 ELSE ; CALL lbc_lnk( pt2d, cd_type, psgn , pval=zval )94 IF( PRESENT( cd_mpp ) ) THEN ; CALL lbc_lnk( 'crslbclnk', pt2d, cd_type, psgn, cd_mpp, pval=zval ) 95 ELSE ; CALL lbc_lnk( 'crslbclnk', pt2d, cd_type, psgn , pval=zval ) 96 96 ENDIF 97 97 !
Note: See TracChangeset
for help on using the changeset viewer.