Changeset 8378


Ignore:
Timestamp:
2017-07-26T15:55:59+02:00 (4 years ago)
Author:
clem
Message:

some cleaning

Location:
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3
Files:
24 edited

Legend:

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

    r8376 r8378  
    1616   USE ice, ONLY : jpl 
    1717   USE phycst         ! physical constants 
     18   ! 
    1819   USE in_out_manager ! I/O manager 
    1920   USE lib_mpp        ! MPP library 
    20    USE wrk_nemo       ! work arrays 
    2121   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    2222 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

    r8373 r8378  
    5050   USE limmp 
    5151   ! END MV MP 2016 
    52  
    5352   USE limistate       ! LIM initial state 
    5453   USE limthd_sal      ! LIM ice thermodynamics: salinity 
     
    6160   USE lbclnk          ! lateral boundary condition - MPP link 
    6261   USE lib_mpp         ! MPP library 
    63    USE wrk_nemo        ! work arrays 
    6462   USE timing          ! Timing 
    6563 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limadv_prather.F90

    r8373 r8378  
    1717   USE dom_oce          ! ocean domain 
    1818   USE ice              ! LIM-3 variables 
     19   ! 
    1920   USE lbclnk           ! lateral boundary condition - MPP exchanges 
    2021   USE in_out_manager   ! I/O manager 
    2122   USE prtctl           ! Print control 
    2223   USE lib_mpp          ! MPP library 
    23    USE wrk_nemo         ! work arrays 
    2424   USE lib_fortran      ! to use key_nosignedzero 
    2525 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limadv_umx.F90

    r8376 r8378  
    2525   USE lbclnk         ! lateral boundary conditions -- MPP exchanges 
    2626   USE lib_mpp        ! MPP library 
    27    USE wrk_nemo       ! work arrays 
    2827   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    2928   USE timing         ! Timing 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limctl.F90

    r8319 r8378  
    2121   USE sbc_oce         ! Surface boundary condition: ocean fields 
    2222   USE sbc_ice         ! Surface boundary condition: ice   fields 
    23  
    2423   USE phycst          ! Define parameters for the routines 
    25  
     24   ! 
    2625   USE lib_mpp         ! MPP library 
    27    USE wrk_nemo        ! work arrays 
    2826   USE timing          ! Timing 
    2927   USE in_out_manager  ! I/O manager 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90

    r8321 r8378  
    1919   USE ice              ! LIM-3 variables 
    2020   USE limrhg           ! LIM-3 rheology 
     21   USE limcons          ! conservation tests 
     22   USE limctl           ! control prints 
     23   USE limvar 
     24   ! 
    2125   USE lbclnk           ! lateral boundary conditions - MPP exchanges 
    2226   USE lib_mpp          ! MPP library 
    23    USE wrk_nemo         ! work arrays 
    2427   USE in_out_manager   ! I/O manager 
    2528   USE lib_fortran      ! glob_sum 
    2629   USE timing           ! Timing 
    27    USE limcons          ! conservation tests 
    28    USE limctl           ! control prints 
    29    USE limvar 
    3030 
    3131   IMPLICIT NONE 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r8373 r8378  
    2828   USE lib_mpp        ! MPP library 
    2929   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    30    USE wrk_nemo       ! work arrays 
    3130   USE fldread        ! read input fields 
    3231   USE iom 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90

    r8373 r8378  
    1919   USE ice              ! LIM variables 
    2020   USE limvar           ! LIM 
     21   USE limcons          ! conservation tests 
     22   USE limctl           ! control prints 
     23   ! 
    2124   USE lbclnk           ! lateral boundary condition - MPP exchanges 
    2225   USE lib_mpp          ! MPP library 
    23    USE wrk_nemo         ! work arrays 
    24  
    2526   USE in_out_manager   ! I/O manager 
    2627   USE iom              ! I/O manager 
    2728   USE lib_fortran      ! glob_sum 
    2829   USE timing           ! Timing 
    29    USE limcons          ! conservation tests 
    30    USE limctl           ! control prints 
    3130 
    3231   IMPLICIT NONE 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limitd_th.F90

    r8369 r8378  
    3030   USE in_out_manager   ! I/O manager 
    3131   USE lib_mpp          ! MPP library 
    32    USE wrk_nemo         ! work arrays 
    3332   USE lib_fortran      ! to use key_nosignedzero 
    3433 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limmp.F90

    r8373 r8378  
    2727!  USE sbc_ice          ! Surface boundary condition: ice   fields 
    2828   USE ice              ! LIM-3 variables 
     29!  USE limcons          ! conservation tests 
     30!  USE limctl           ! control prints 
     31!  USE limvar 
     32   ! 
    2933   USE lbclnk           ! lateral boundary conditions - MPP exchanges 
    3034   USE lib_mpp          ! MPP library 
    31    USE wrk_nemo         ! work arrays 
    3235   USE in_out_manager   ! I/O manager 
    3336   USE lib_fortran      ! glob_sum 
    3437   USE timing           ! Timing 
    35 !  USE limcons          ! conservation tests 
    36 !  USE limctl           ! control prints 
    37 !  USE limvar 
    3838 
    3939!OLI_CODE    USE ice_oce, ONLY: rdt_ice, tatm_ice 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90

    r8373 r8378  
    2525   USE ice            ! ice variables 
    2626   USE limitd_me      ! ice strength 
     27   ! 
    2728   USE lbclnk         ! Lateral Boundary Condition / MPP link 
    2829   USE lib_mpp        ! MPP library 
    29    USE wrk_nemo       ! work arrays 
    3030   USE in_out_manager ! I/O manager 
    3131   USE prtctl         ! Print control 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90

    r8373 r8378  
    2020   USE dom_oce        ! ocean domain 
    2121   USE sbc_oce , ONLY : nn_fsbc 
     22   USE limctl 
     23   ! 
    2224   USE in_out_manager ! I/O manager 
    2325   USE iom            ! I/O library 
    2426   USE lib_mpp        ! MPP library 
    25    USE wrk_nemo       ! work arrays 
    2627   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    27    USE limctl 
    2828 
    2929   IMPLICIT NONE 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

    r8374 r8378  
    4343   USE lbclnk         ! ocean lateral boundary condition - MPP exchanges 
    4444   USE lib_mpp        ! MPP library 
    45    USE wrk_nemo       ! work arrays 
    4645   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    4746 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r8373 r8378  
    4242   USE lbclnk         ! lateral boundary condition - MPP links 
    4343   USE lib_mpp        ! MPP library 
    44    USE wrk_nemo       ! work arrays 
    4544   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    4645   USE timing         ! Timing 
     
    234233         IF( nidx > 0 ) THEN  ! If there is no ice, do nothing. 
    235234            !                                                                 
    236             s_i_new   (1:nidx) = 0._wp ; dh_s_tot (1:nidx) = 0._wp  ! --- some init --- ! 
    237             dh_i_surf (1:nidx) = 0._wp ; dh_i_bott(1:nidx) = 0._wp 
    238             dh_snowice(1:nidx) = 0._wp ; dh_i_sub (1:nidx) = 0._wp 
    239  
    240235                              CALL lim_thd_1d2d( jl, 1 )            ! --- Move to 1D arrays --- ! 
    241236            ! 
     
    246241               WHERE( ht_s_1d(1:nidx)>0._wp ) e_s_1d(1:nidx,jk) = e_s_1d(1:nidx,jk) / (ht_s_1d(1:nidx) * a_i_1d(1:nidx)) * nlay_s 
    247242            ENDDO 
     243            ! 
     244            s_i_new   (1:nidx) = 0._wp ; dh_s_tot (1:nidx) = 0._wp  ! --- some init --- !  (important to have them here)  
     245            dh_i_surf (1:nidx) = 0._wp ; dh_i_bott(1:nidx) = 0._wp 
     246            dh_snowice(1:nidx) = 0._wp ; dh_i_sub (1:nidx) = 0._wp 
    248247            ! 
    249248            IF( ln_limdH )    CALL lim_thd_dif                      ! --- Ice/Snow Temperature profile --- ! 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_da.F90

    r8371 r8378  
    1818   ! 
    1919   USE lib_mpp        ! MPP library 
    20    USE wrk_nemo       ! work arrays 
    2120   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    2221 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90

    r8373 r8378  
    2323   USE in_out_manager ! I/O manager 
    2424   USE lib_mpp        ! MPP library 
    25    USE wrk_nemo       ! work arrays 
    2625   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    2726    
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90

    r8373 r8378  
    2020   USE ice            ! LIM-3 variables 
    2121   USE thd_ice        ! LIM-3: thermodynamics 
     22   ! 
    2223   USE in_out_manager ! I/O manager 
    2324   USE lib_mpp        ! MPP library 
    24    USE wrk_nemo       ! work arrays 
    2525   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    2626 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90

    r8373 r8378  
    2626   USE thd_ice        ! LIM thermodynamics 
    2727   USE limvar         ! LIM variables 
     28   ! 
    2829   USE in_out_manager ! I/O manager 
    2930   USE lib_mpp        ! MPP library 
    30    USE wrk_nemo       ! work arrays 
    3131   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    3232 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

    r8373 r8378  
    2424   USE limtab         ! LIM 2D <==> 1D 
    2525   USE limcons        ! LIM conservation 
     26   USE limthd_ent 
     27   USE limvar 
     28   ! 
    2629   USE in_out_manager ! I/O manager 
    2730   USE lib_mpp        ! MPP library 
    28    USE wrk_nemo       ! work arrays 
    2931   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    3032   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    31    USE limthd_ent 
    32    USE limvar 
    3333 
    3434   IMPLICIT NONE 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90

    r8342 r8378  
    1919   USE thd_ice        ! LIM thermodynamics 
    2020   USE limvar         ! LIM variables 
     21   ! 
    2122   USE in_out_manager ! I/O manager 
    2223   USE lib_mpp        ! MPP library 
    23    USE wrk_nemo       ! work arrays 
    2424   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    2525 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90

    r8355 r8378  
    1919   USE limitd_th 
    2020   USE limvar 
    21    USE wrk_nemo        ! work arrays 
    22    USE timing          ! Timing 
    2321   USE limcons         ! conservation tests 
    2422   USE limctl          ! control prints 
     23   ! 
    2524   USE lib_mpp         ! MPP library 
    2625   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    2726   USE in_out_manager  ! I/O manager 
     27   USE timing          ! Timing 
    2828 
    2929   IMPLICIT NONE 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limupdate2.F90

    r8373 r8378  
    1919   USE limitd_th 
    2020   USE limvar 
    21    USE lbclnk          ! lateral boundary condition - MPP exchanges 
    22    USE wrk_nemo        ! work arrays 
    23    USE timing          ! Timing 
    2421   USE limcons         ! conservation tests 
    2522   USE limctl 
     23   ! 
     24   USE lbclnk          ! lateral boundary condition - MPP exchanges 
    2625   USE lib_mpp         ! MPP library 
    2726   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    2827   USE in_out_manager 
     28   USE timing          ! Timing 
    2929 
    3030   IMPLICIT NONE 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

    r8373 r8378  
    4141   USE ice            ! ice variables 
    4242   USE thd_ice        ! ice variables (thermodynamics) 
     43   ! 
    4344   USE in_out_manager ! I/O manager 
    4445   USE lib_mpp        ! MPP library 
    45    USE wrk_nemo       ! work arrays 
    4646   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    4747 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

    r8373 r8378  
    1919   USE ice 
    2020   USE limvar 
     21   ! 
    2122   USE in_out_manager 
    2223   USE lbclnk 
    2324   USE lib_mpp         ! MPP library 
    24    USE wrk_nemo        ! work arrays 
    2525   USE iom 
    2626   USE timing          ! Timing 
Note: See TracChangeset for help on using the changeset viewer.