Ignore:
Timestamp:
2019-09-03T12:46:35+02:00 (15 months ago)
Author:
mathiot
Message:

ENHANCE-02_ISF: switch on isf param in WED025 and fix bugs in isf param code + cosmetic changes (ticket #2142)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfparmlt.F90

    r11425 r11494  
    3737! ------------------------------------------------------------------------------------------------------- 
    3838 
    39   SUBROUTINE isfpar_mlt( kt, pqfwf, pqoce, pqhc ) 
    40       !!--------------------------------------------------------------------- 
    41       !!                  ***  ROUTINE sbc_isf  *** 
     39  SUBROUTINE isfpar_mlt( kt, pqhc, pqoce, pqfwf ) 
     40      !!--------------------------------------------------------------------- 
     41      !!                  ***  ROUTINE isfpar_mlt  *** 
    4242      !! 
    4343      !! ** Purpose : Compute Salt and Heat fluxes related to ice_shelf  
     
    4949      !!---------------------------------------------------------------------- 
    5050      !!-------------------------- OUT ------------------------------------- 
    51       REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pqfwf,pqoce, pqhc  ! fresh water, ice-ocean heat and heat content fluxes 
     51      REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pqfwf, pqoce, pqhc  ! fresh water, ice-ocean heat and heat content fluxes 
    5252      !!-------------------------- IN  ------------------------------------- 
    5353      INTEGER, INTENT(in) ::   kt   ! ocean time step 
     
    7272! ------------------------------------------------------------------------------------------------------- 
    7373 
    74    SUBROUTINE isfpar_mlt_spe(kt, pqhc, pqfwf, pqoce) 
     74   SUBROUTINE isfpar_mlt_spe(kt, pqhc, pqoce, pqfwf) 
    7575      !!--------------------------------------------------------------------- 
    7676      !!                  ***  ROUTINE isfpar_mlt_spe  *** 
     
    8181      !!---------------------------------------------------------------------- 
    8282      !!-------------------------- OUT ------------------------------------- 
    83       REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pqhc, pqfwf,pqoce  ! fresh water and ice-ocean heat fluxes 
     83      REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pqhc, pqfwf, pqoce  ! fresh water and ice-ocean heat fluxes 
    8484      !!-------------------------- IN  ------------------------------------- 
    8585      INTEGER,  INTENT(in) :: kt 
     
    122122      !!---------------------------------------------------------------------- 
    123123      !!-------------------------- OUT ------------------------------------- 
    124       REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pqhc, pqfwf,pqoce  ! fresh water and ice-ocean heat fluxes 
     124      REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pqhc, pqfwf, pqoce  ! fresh water and ice-ocean heat fluxes 
    125125      !!-------------------------- IN  ------------------------------------- 
    126126      INTEGER,  INTENT(in) :: kt 
     
    158158   SUBROUTINE isfpar_mlt_oasis(kt, pqhc , pqoce, pqfwf ) 
    159159      !!---------------------------------------------------------------------- 
     160      !!                  ***  ROUTINE isfpar_oasis  *** 
    160161      !! 
    161162      !! ** Purpose    : scale the fwf read from input file by the total amount received by the sbccpl interface 
    162163      !! 
    163       !! ** Purpose    : - read ice shelf melt from forcing file => pattern 
    164       !!                 - total amount of fwf is given by sbccpl (fwfisf_oasis) 
     164      !! ** Purpose    : - read ice shelf melt from forcing file and scale it by the input file total amount => pattern 
     165      !!                 - compute total amount of fwf given by sbccpl (fwfisf_oasis) 
    165166      !!                 - scale fwf and compute heat fluxes 
    166167      !! 
Note: See TracChangeset for help on using the changeset viewer.