- Timestamp:
- 2021-06-17T19:17:25+02:00 (3 years ago)
- Location:
- NEMO/branches/2021/ticket2680_C1D_PAPA
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/ticket2680_C1D_PAPA
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette@14244 sette 11 ^/utils/CI/sette@HEAD sette 12
-
- Property svn:externals
-
NEMO/branches/2021/ticket2680_C1D_PAPA/src/ICE/iceistate.F90
r14143 r15015 308 308 ! select ice covered grid points 309 309 npti = 0 ; nptidx(:) = 0 310 DO_2D( 1, 1, 1, 1)310 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 311 311 IF ( zht_i_ini(ji,jj) > 0._wp ) THEN 312 312 npti = npti + 1 … … 363 363 CALL ice_var_salprof ! for sz_i 364 364 DO jl = 1, jpl 365 DO_2D( 1, 1, 1, 1)365 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 366 366 v_i (ji,jj,jl) = h_i(ji,jj,jl) * a_i(ji,jj,jl) 367 367 v_s (ji,jj,jl) = h_s(ji,jj,jl) * a_i(ji,jj,jl) … … 371 371 ! 372 372 DO jl = 1, jpl 373 DO_3D( 1, 1, 1, 1, 1, nlay_s )373 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, nlay_s ) 374 374 t_s(ji,jj,jk,jl) = zts_3d(ji,jj,jl) 375 375 e_s(ji,jj,jk,jl) = zswitch(ji,jj) * v_s(ji,jj,jl) * r1_nlay_s * & … … 379 379 ! 380 380 DO jl = 1, jpl 381 DO_3D( 1, 1, 1, 1, 1, nlay_i )381 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, nlay_i ) 382 382 t_i (ji,jj,jk,jl) = zti_3d(ji,jj,jl) 383 383 ztmelts = - rTmlt * sz_i(ji,jj,jk,jl) + rt0 ! melting temperature in K
Note: See TracChangeset
for help on using the changeset viewer.