Ignore:
Timestamp:
2019-11-19T18:30:57+01:00 (11 months ago)
Author:
mathiot
Message:

ENHANCE-02_ISF_nemo: add comments, improve memory usage of ln_isfcpl_cons option, fix issue in ISOMIP+ configuration

File:
1 edited

Legend:

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

    r11876 r11931  
    1818   USE in_out_manager              ! I/O manager 
    1919   USE iom        , ONLY: iom_put  ! I/O library 
    20    USE fldread    , ONLY: fld_read ! 
     20   USE fldread    , ONLY: fld_read, FLD, FLD_N ! 
    2121   USE lib_fortran, ONLY: glob_sum ! 
    2222   USE lib_mpp    , ONLY: ctl_stop ! 
     
    4949      !!                        1 : Specified melt flux 
    5050      !!                        2 : Beckmann & Goose parameterization 
    51       !!---------------------------------------------------------------------- 
     51      !! 
    5252      !!-------------------------- OUT ------------------------------------- 
    5353      REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pqfwf, pqoce, pqhc  ! fresh water, ice-ocean heat and heat content fluxes 
     
    8181      !!              data read into a forcing files. 
    8282      !! 
    83       !!---------------------------------------------------------------------- 
    8483      !!-------------------------- OUT ------------------------------------- 
    8584      REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pqhc, pqfwf, pqoce  ! fresh water and ice-ocean heat fluxes 
     
    105104      pqoce(:,:) =   pqfwf(:,:) * rLfusisf             ! ocean/ice shelf flux assume to be equal to latent heat flux 
    106105      pqhc (:,:) =   pqfwf(:,:) * ztfrz(:,:) * rcp     ! heat content flux  
     106      ! 
    107107      CALL iom_put('isftfrz_par', ztfrz ) 
    108108      ! 
     
    155155      ! output thermal driving 
    156156      CALL iom_put('isfthermald_par',( ztfrz(:,:) - ztavg(:,:) ) * mskisf_par(:,:)) 
     157      ! 
     158      ! output freezing point used to define the thermal driving and heat content fluxes 
    157159      CALL iom_put('isftfrz_par', ztfrz ) 
    158160      ! 
     
    206208      zfwf(:,:) = zfwf(:,:) * zfwf_oasis / zfwf_fld 
    207209      !  
    208       ! i3. -----------Define fwf and qoce 
     210      ! 3. -----------Define fwf and qoce 
    209211      ! ocean heat flux is assume to be equal to the latent heat 
    210212      pqfwf(:,:) =   zfwf(:,:)                         ! fwf                ( >0 out ) 
Note: See TracChangeset for help on using the changeset viewer.