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/icectl.F90

    r8486 r8498  
    7171      REAL(wp), PARAMETER             :: zconv = 1.e-9 ! convert W to GW and kg to Mt 
    7272      !!---------------------------------------------------------------------- 
    73  
    74 !!gm  Note that glo_sum for a 2D or 3D array use a multiplication by tmask_i(ji,jj) 
    75 !!    so below  the  * tmask(:,:,1) is useless   ===>> I have removed them 
    76 !!    I also move the conversion factor from then glo_sum argument (become a single multiplication 
    77   
     73      ! 
    7874      IF( icount == 0 ) THEN 
    7975         !                          ! salt flux 
     
    271267               !WRITE(numout,*) ' sea-ice stress utau_ice  : ', utau_ice(ji,jj)  
    272268               !WRITE(numout,*) ' sea-ice stress vtau_ice  : ', vtau_ice(ji,jj) 
    273                !WRITE(numout,*) ' oceanic speed u          : ', u_oce(ji,jj) 
    274                !WRITE(numout,*) ' oceanic speed v          : ', v_oce(ji,jj) 
    275269               !WRITE(numout,*) ' sst                      : ', sst_m(ji,jj) 
    276270               !WRITE(numout,*) ' sss                      : ', sss_m(ji,jj) 
     
    556550               WRITE(numout,*) ' utau       : ', utau    (ji,jj)  
    557551               WRITE(numout,*) ' vtau       : ', vtau    (ji,jj) 
    558                WRITE(numout,*) ' oc. vel. u : ', u_oce   (ji,jj) 
    559                WRITE(numout,*) ' oc. vel. v : ', v_oce   (ji,jj) 
    560552            ENDIF 
    561553             
     
    669661      CALL prt_ctl(tab2d_1=utau       , clinfo1= ' utau      : ', tab2d_2=vtau       , clinfo2= ' vtau      : ') 
    670662      CALL prt_ctl(tab2d_1=utau_ice   , clinfo1= ' utau_ice  : ', tab2d_2=vtau_ice   , clinfo2= ' vtau_ice  : ') 
    671       CALL prt_ctl(tab2d_1=u_oce      , clinfo1= ' u_oce     : ', tab2d_2=v_oce      , clinfo2= ' v_oce     : ') 
    672663       
    673664   END SUBROUTINE ice_prt3D 
Note: See TracChangeset for help on using the changeset viewer.