Changeset 7832 for trunk/NEMOGCM/NEMO
- Timestamp:
- 2017-03-24T13:49:13+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90
r7646 r7832 67 67 ibne , ibnw , ibse , ibsw ! " " 68 68 INTEGER, DIMENSION(jpiglo,jpjglo) :: imask ! global workspace 69 REAL(wp), DIMENSION(jpiglo,jpjglo) :: zbot, ztop ! global workspace69 REAL(wp), DIMENSION(jpiglo,jpjglo) :: zbot, ztop, zbdy ! global workspace 70 70 REAL(wp) :: zidom , zjdom ! local scalars 71 71 NAMELIST/nambdy/ ln_bdy, nb_bdy, ln_coords_file, cn_coords_file, & … … 94 94 ! 95 95 ! ! ocean top and bottom level 96 CALL iom_get( inum, jpdom_ data, 'bottom_level' , zbot ) ! nb of ocean T-points97 CALL iom_get( inum, jpdom_ data, 'top_level' , ztop ) ! nb of ocean T-points (ISF)96 CALL iom_get( inum, jpdom_unknown, 'bottom_level' , zbot ) ! nb of ocean T-points 97 CALL iom_get( inum, jpdom_unknown, 'top_level' , ztop ) ! nb of ocean T-points (ISF) 98 98 ! 99 99 CALL iom_close( inum ) 100 100 ! 101 101 ! 2D ocean mask (=1 if at least one level of the water column is ocean, =0 otherwise) 102 WHERE( zbot(:,:) - ztop(:,:) + 1 > 0 ); imask(:,:) = 1102 WHERE( zbot(:,:) > 0 ) ; imask(:,:) = 1 103 103 ELSEWHERE ; imask(:,:) = 0 104 104 END WHERE … … 116 116 IF( ln_bdy .AND. ln_mask_file ) THEN 117 117 CALL iom_open( cn_mask_file, inum ) 118 CALL iom_get ( inum, jpdom_ data, 'bdy_msk', bdytmask(:,:))118 CALL iom_get ( inum, jpdom_unknown, 'bdy_msk', zbdy) 119 119 CALL iom_close( inum ) 120 WHERE ( bdytmask(:,:) <= 0. ) imask = 0120 WHERE ( zbdy(:,:) <= 0. ) imask = 0 121 121 ENDIF 122 122
Note: See TracChangeset
for help on using the changeset viewer.