Changeset 6994 for branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90

Timestamp:

2016-10-05T15:07:10+02:00 (8 years ago)

Author:

clem

Message:

clean online sea ice diagnostics

File:

• branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90 (modified) (2 diffs)

branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90

@@ -38 +38 @@
    USE bdyice_lim
 #endif
-   !!!clem
-!!   USE iom
 
    IMPLICIT NONE
@@ -703 +701 @@
          ENDIF
       ENDIF
-      !
-
-!!      ! velocity
-!!      IF ( iom_use( "uice_ipa" ) .OR. iom_use( "vice_ipa" ) .OR. iom_use( "icevel" ) ) THEN 
-!!         CALL iom_put( "uice_ipa"     , u_ice      )       ! ice velocity u component
-!!         CALL iom_put( "vice_ipa"     , v_ice      )       ! ice velocity v component
-!!      ENDIF
-!!      IF ( iom_use( "iceconc_cat"  ) )  CALL iom_put( "iceconc_cat"      , a_i    )        ! area for categories
-!!      IF ( iom_use( "icethic_cat"  ) )  CALL iom_put( "icethic_cat"      , ht_i   )        ! thickness for categories
-     
+      !     
       
       CALL wrk_dealloc( jpi,jpj, z1_e1t0, z1_e2t0, zp_delt )