Changeset 8534 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceforcing.F90

Timestamp:

2017-09-18T16:54:04+02:00 (7 years ago)

Author:

clem

Message:

changes in style - part6 - pure cosmetics

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceforcing.F90 (modified) (14 diffs)

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

@@ -8 +8 @@
 #if defined key_lim3
    !!----------------------------------------------------------------------
-   !!   'key_lim3' :                                  LIM 3.0 sea-ice model
+   !!   'key_lim3' :                                     ESIM sea-ice model
    !!----------------------------------------------------------------------
    USE oce            ! ocean dynamics and tracers
    USE dom_oce        ! ocean space and time domain
-   USE ice            ! sea-ice variables
+   USE ice            ! sea-ice: variables
    USE sbc_oce        ! Surface boundary condition: ocean fields
    USE sbc_ice        ! Surface boundary condition: ice   fields
-   USE usrdef_sbc     ! user defined: surface boundary condition
+   USE usrdef_sbc     ! Surface boundary condition: user defined
    USE sbcblk         ! Surface boundary condition: bulk
    USE sbccpl         ! Surface boundary condition: coupled interface
-   USE icealb         ! ice albedo
+   USE icealb         ! sae-ice: albedo
    !
+   USE in_out_manager ! I/O manager
    USE iom            ! I/O manager library
-   USE in_out_manager ! I/O manager
-   USE lbclnk         ! lateral boundary condition - MPP link
    USE lib_mpp        ! MPP library
-   USE lib_fortran    !
+   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero)
+   USE lbclnk         ! lateral boundary conditions (or mpp links)
    USE timing         ! Timing
 
@@ -44 +44 @@
 
    SUBROUTINE ice_forcing_tau( kt, ksbc, utau_ice, vtau_ice )
-      !!---------------------------------------------------------------------
+      !!-------------------------------------------------------------------
       !!                  ***  ROUTINE ice_forcing_tau  ***
       !!
@@ -51 +51 @@
       !! ** Action  : It provides the following fields:
       !!              utau_ice, vtau_ice : surface ice stress (U- & V-points) [N/m2]
-      !!---------------------------------------------------------------------
+      !!-------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt      ! ocean time step
       INTEGER, INTENT(in) ::   ksbc    ! type of sbc flux ( 1 = user defined formulation, 
@@ -60 +60 @@
       INTEGER  ::   ji, jj                 ! dummy loop index
       REAL(wp), DIMENSION(jpi,jpj) ::   zutau_ice, zvtau_ice 
-      !!----------------------------------------------------------------------
-
-      IF( nn_timing == 1 )   CALL timing_start('ice_forcing_tau')
+      !!-------------------------------------------------------------------
+
+      IF( nn_timing == 1 )   CALL timing_start('ice_forcing')
 
       IF( kt == nit000 .AND. lwp ) THEN
@@ -87 +87 @@
       ENDIF
 
-      IF( nn_timing == 1 )   CALL timing_stop('ice_forcing_tau')
+      IF( nn_timing == 1 )   CALL timing_stop('ice_forcing')
       !
    END SUBROUTINE ice_forcing_tau
@@ -93 +93 @@
    
    SUBROUTINE ice_forcing_flx( kt, ksbc )
-      !!---------------------------------------------------------------------
+      !!-------------------------------------------------------------------
       !!                  ***  ROUTINE ice_forcing_flx  ***
       !!
@@ -112 +112 @@
       !!                tprecip                                  = total  precipitation                          [Kg/m2/s]
       !!                alb_ice                                  = albedo above sea ice
-      !!---------------------------------------------------------------------
+      !!-------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt     ! ocean time step
       INTEGER, INTENT(in) ::   ksbc   ! flux formulation (user defined, bulk or Pure Coupled)
@@ -119 +119 @@
       REAL(wp), DIMENSION(jpi,jpj,jpl) ::   zalb_os, zalb_cs  ! ice albedo under overcast/clear sky
       REAL(wp), DIMENSION(jpi,jpj)     ::   zalb              ! 2D workspace
-      !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('ice_forcing_flx')
+      !!--------------------------------------------------------------------
+      !
+      IF( nn_timing == 1 )   CALL timing_start('ice_forcing')
 
       IF( kt == nit000 .AND. lwp ) THEN
@@ -164 +164 @@
       ENDIF
       !
-      IF( nn_timing == 1 )   CALL timing_stop('ice_forcing_flx')
+      IF( nn_timing == 1 )   CALL timing_stop('ice_forcing')
       !
    END SUBROUTINE ice_forcing_flx
@@ -170 +170 @@
 
    SUBROUTINE ice_flx_dist( ptn_ice, palb_ice, pqns_ice, pqsr_ice, pdqn_ice, pevap_ice, pdevap_ice, k_iceflx )
-      !!---------------------------------------------------------------------
+      !!-------------------------------------------------------------------
       !!                  ***  ROUTINE ice_flx_dist  ***
       !!
@@ -184 +184 @@
       !!                                                 using T-ice and albedo sensitivity
       !!                =  2  Redistribute a single flux over categories
-      !!---------------------------------------------------------------------
+      !!-------------------------------------------------------------------
       INTEGER                   , INTENT(in   ) ::   k_iceflx   ! redistributor
       REAL(wp), DIMENSION(:,:,:), INTENT(in   ) ::   ptn_ice    ! ice surface temperature
@@ -206 +206 @@
       REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   ztem_m    ! Mean temperature over all categories
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )  CALL timing_start('ice_flx_dist')
       !
       WHERE ( at_i (:,:) > 0._wp )   ; z1_at_i(:,:) = 1._wp / at_i (:,:)
@@ -253 +251 @@
          !
       END SELECT
-      !
-      IF( nn_timing == 1 )  CALL timing_stop('ice_flx_dist')
       !
    END SUBROUTINE ice_flx_dist
@@ -315 +311 @@
 #else
    !!----------------------------------------------------------------------
-   !!   Default option :         Empty module          NO LIM sea-ice model
+   !!   Default option :         Empty module         NO ESIM sea-ice model
    !!----------------------------------------------------------------------
 #endif