Ignore:
Timestamp:
2017-09-05T19:53:41+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part2 -

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceupdate.F90

    r8486 r8498  
    8686      !!   
    8787      !! ** Purpose :   Update the surface ocean boundary condition for heat  
    88       !!              salt and mass over areas where sea-ice is non-zero 
     88      !!                salt and mass over areas where sea-ice is non-zero 
    8989      !!          
    9090      !! ** Action  : - computes the heat and freshwater/salt fluxes 
    91       !!              at the ice-ocean interface. 
     91      !!                at the ice-ocean interface. 
    9292      !!              - Update the ocean sbc 
    9393      !!      
     
    133133         DO ji = 1, jpi 
    134134 
    135             !------------------------------------------! 
    136             !      heat flux at the ocean surface      ! 
    137             !------------------------------------------! 
    138135            ! Solar heat flux reaching the ocean = zqsr (W.m-2)  
    139136            !--------------------------------------------------- 
    140             zqsr = qsr_tot(ji,jj) 
    141             DO jl = 1, jpl 
    142                zqsr = zqsr - a_i_b(ji,jj,jl) * (  qsr_ice(ji,jj,jl) - ftr_ice(ji,jj,jl) )  
    143             END DO 
    144 !!gm  why not like almost everywhere else : 
    145 !!gm        zqsr = qsr_tot(ji,jj) - SUM( a_i_b(ji,jj,:) * (  qsr_ice(ji,jj,:) - ftr_ice(ji,jj,:) ) 
     137            zqsr = qsr_tot(ji,jj) - SUM( a_i_b(ji,jj,:) * ( qsr_ice(ji,jj,:) - ftr_ice(ji,jj,:) ) ) 
    146138 
    147139            ! Total heat flux reaching the ocean = hfx_out (W.m-2)  
     
    204196      END DO 
    205197 
    206       !-----------------------------------------------! 
    207       !   Storing the transmitted variables           ! 
    208       !-----------------------------------------------! 
     198      ! Storing the transmitted variables 
     199      !---------------------------------- 
    209200      fr_i  (:,:)   = at_i(:,:)             ! Sea-ice fraction             
    210201      tn_ice(:,:,:) = t_su(:,:,:)           ! Ice surface temperature                       
    211202 
    212       !------------------------------------------------------------------------! 
    213       !    Snow/ice albedo (only if sent to coupler, useless in forced mode)   ! 
    214       !------------------------------------------------------------------------! 
     203      ! Snow/ice albedo (only if sent to coupler, useless in forced mode) 
     204      !------------------------------------------------------------------ 
    215205      CALL ice_alb( t_su, ht_i, ht_s, a_ip_frac, h_ip, ln_pnd_rad, zalb_cs, zalb_os ) ! cloud-sky and overcast-sky ice albedos 
    216206      ! 
Note: See TracChangeset for help on using the changeset viewer.