- Timestamp:
- 2019-11-04T19:00:27+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcpl.F90
r11823 r11852 12 12 !! isfrst : read/write iceshelf variables in/from restart 13 13 !!---------------------------------------------------------------------- 14 USE isf ! ice shelf variable 15 USE lib_mpp, ONLY: mpp_sum, mpp_max ! mpp routine 16 USE domvvl , ONLY: dom_vvl_zgr ! vertical scale factor interpolation 17 ! 14 18 USE oce ! ocean dynamics and tracers 15 USE isf ! ice shelf variable16 USE isfutils ! debuging17 USE lib_mpp ! mpp routine18 USE domvvl ! vertical scale factor interpolation19 !20 19 USE in_out_manager ! I/O manager 21 20 USE iom ! I/O library … … 47 46 CONTAINS 48 47 SUBROUTINE isfcpl_init() 48 ! 49 ! start on an euler time step 50 neuler = 0 49 51 ! 50 52 CALL isf_alloc_cpl() … … 57 59 ! 58 60 ! correction of the horizontal divergence and associated temp. and salt content flux 61 ! Need to : - include in the cpl cons the risfcpl_vol/tsc contribution 62 ! - decide how to manage thickness level change in conservation 59 63 CALL isfcpl_vol() 60 64 ! … … 66 70 vn(:,:,:) = vn(:,:,:) * vmask(:,:,:) 67 71 ! 68 ! Need to : - include in the cpl cons the risfcpl_vol/tsc contribution 69 ! - decide how to manage thickness level change in conservation 72 ! all before fields set to now values 73 tsb (:,:,:,:) = tsn (:,:,:,:) 74 ub (:,:,:) = un (:,:,:) 75 vb (:,:,:) = vn (:,:,:) 76 sshb (:,:) = sshn (:,:) 77 e3t_b(:,:,:) = e3t_n(:,:,:) 78 79 ! prepare writing restart 80 IF( lwxios ) THEN 81 CALL iom_set_rstw_var_active('ssmask') 82 CALL iom_set_rstw_var_active('tmask') 83 CALL iom_set_rstw_var_active('e3t_n') 84 CALL iom_set_rstw_var_active('e3u_n') 85 CALL iom_set_rstw_var_active('e3v_n') 86 END IF 70 87 ! 71 88 END SUBROUTINE isfcpl_init … … 92 109 END SUBROUTINE isfcpl_rst_write 93 110 94 SUBROUTINE isfcpl_ssh 111 SUBROUTINE isfcpl_ssh() 95 112 !!---------------------------------------------------------------------- 96 113 !! *** ROUTINE iscpl_ssh *** … … 153 170 ! 154 171 ! recompute the vertical scale factor, depth and water thickness 155 CALL dom_vvl_zgr 172 CALL dom_vvl_zgr() 156 173 ! 157 174 END SUBROUTINE isfcpl_ssh 158 175 159 SUBROUTINE isfcpl_tra 176 SUBROUTINE isfcpl_tra() 160 177 !!---------------------------------------------------------------------- 161 178 !! *** ROUTINE iscpl_tra *** … … 316 333 END SUBROUTINE isfcpl_tra 317 334 318 SUBROUTINE isfcpl_vol 335 SUBROUTINE isfcpl_vol() 319 336 !!---------------------------------------------------------------------- 320 337 !! *** ROUTINE iscpl_vol *** … … 402 419 END SUBROUTINE isfcpl_vol 403 420 404 SUBROUTINE isfcpl_cons 421 SUBROUTINE isfcpl_cons() 405 422 !!---------------------------------------------------------------------- 406 423 !! *** ROUTINE iscpl_cons ***
Note: See TracChangeset
for help on using the changeset viewer.