Changeset 6403 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC
- Timestamp:
- 2016-03-25T17:24:35+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r6140 r6403 104 104 INTEGER, INTENT(in) :: kblk ! type of bulk (=3 CLIO, =4 CORE, =5 COUPLED) 105 105 !! 106 INTEGER :: jl ! dummy loop index106 INTEGER :: jl ! dummy loop index 107 107 REAL(wp), POINTER, DIMENSION(:,:,:) :: zalb_os, zalb_cs ! ice albedo under overcast/clear sky 108 108 REAL(wp), POINTER, DIMENSION(:,:,:) :: zalb_ice ! mean ice albedo (for coupled) … … 260 260 !! ** purpose : Allocate all the dynamic arrays of the LIM-3 modules 261 261 !!---------------------------------------------------------------------- 262 INTEGER :: ierr262 INTEGER :: ji, jj, ierr 263 263 !!---------------------------------------------------------------------- 264 264 IF(lwp) WRITE(numout,*) … … 317 317 tn_ice(:,:,:) = t_su(:,:,:) ! initialisation of surface temp for coupled simu 318 318 ! 319 DO jj = 1, jpj 320 DO ji = 1, jpi 321 IF( gphit(ji,jj) > 0._wp ) THEN ; rn_amax_2d(ji,jj) = rn_amax_n ! NH 322 ELSE ; rn_amax_2d(ji,jj) = rn_amax_s ! SH 323 ENDIF 324 ENDDO 325 ENDDO 326 ! 319 327 nstart = numit + nn_fsbc 320 328 nitrun = nitend - nit000 + 1 … … 339 347 INTEGER :: ios ! Local integer output status for namelist read 340 348 NAMELIST/namicerun/ jpl, nlay_i, nlay_s, cn_icerst_in, cn_icerst_indir, cn_icerst_out, cn_icerst_outdir, & 341 & ln_limdyn, rn_amax , ln_limdiahsb, ln_limdiaout, ln_icectl, iiceprt, jiceprt349 & ln_limdyn, rn_amax_n, rn_amax_s, ln_limdiahsb, ln_limdiaout, ln_icectl, iiceprt, jiceprt 342 350 !!------------------------------------------------------------------- 343 351 ! … … 359 367 WRITE(numout,*) ' number of snow layers = ', nlay_s 360 368 WRITE(numout,*) ' switch for ice dynamics (1) or not (0) ln_limdyn = ', ln_limdyn 361 WRITE(numout,*) ' maximum ice concentration = ', rn_amax 369 WRITE(numout,*) ' maximum ice concentration for NH = ', rn_amax_n 370 WRITE(numout,*) ' maximum ice concentration for SH = ', rn_amax_s 362 371 WRITE(numout,*) ' Diagnose heat/salt budget or not ln_limdiahsb = ', ln_limdiahsb 363 372 WRITE(numout,*) ' Output heat/salt budget or not ln_limdiaout = ', ln_limdiaout
Note: See TracChangeset
for help on using the changeset viewer.