Changeset 8498 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icectl.F90

Timestamp:

2017-09-05T19:53:41+02:00 (7 years ago)

Author:

clem

Message:

changes in style - part2 -

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icectl.F90 (modified) (4 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icectl.F90

@@ -71 +71 @@
       REAL(wp), PARAMETER             :: zconv = 1.e-9 ! convert W to GW and kg to Mt
       !!----------------------------------------------------------------------
-
-!!gm  Note that glo_sum for a 2D or 3D array use a multiplication by tmask_i(ji,jj)
-!!    so below  the  * tmask(:,:,1) is useless   ===>> I have removed them
-!!    I also move the conversion factor from then glo_sum argument (become a single multiplication
- 
+      !
       IF( icount == 0 ) THEN
          !                          ! salt flux
@@ -271 +267 @@
                !WRITE(numout,*) ' sea-ice stress utau_ice  : ', utau_ice(ji,jj) 
                !WRITE(numout,*) ' sea-ice stress vtau_ice  : ', vtau_ice(ji,jj)
-               !WRITE(numout,*) ' oceanic speed u          : ', u_oce(ji,jj)
-               !WRITE(numout,*) ' oceanic speed v          : ', v_oce(ji,jj)
                !WRITE(numout,*) ' sst                      : ', sst_m(ji,jj)
                !WRITE(numout,*) ' sss                      : ', sss_m(ji,jj)
@@ -556 +550 @@
                WRITE(numout,*) ' utau       : ', utau    (ji,jj) 
                WRITE(numout,*) ' vtau       : ', vtau    (ji,jj)
-               WRITE(numout,*) ' oc. vel. u : ', u_oce   (ji,jj)
-               WRITE(numout,*) ' oc. vel. v : ', v_oce   (ji,jj)
             ENDIF
             
@@ -669 +661 @@
       CALL prt_ctl(tab2d_1=utau       , clinfo1= ' utau      : ', tab2d_2=vtau       , clinfo2= ' vtau      : ')
       CALL prt_ctl(tab2d_1=utau_ice   , clinfo1= ' utau_ice  : ', tab2d_2=vtau_ice   , clinfo2= ' vtau_ice  : ')
-      CALL prt_ctl(tab2d_1=u_oce      , clinfo1= ' u_oce     : ', tab2d_2=v_oce      , clinfo2= ' v_oce     : ')
       
    END SUBROUTINE ice_prt3D