New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3905 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 – NEMO

Ignore:
Timestamp:
2013-05-24T15:40:39+02:00 (11 years ago)
Author:
cetlod
Message:

bugfix : store the flux due to freezing/melting, needed at least for PISCES, see ticket #1100

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r3764 r3905  
    146146      sfx(:,:) = 0.0_wp                            ! the salt flux due to freezing/melting will be computed (i.e. will be non-zero)  
    147147                                                   ! only if sea-ice is present 
     148  
     149      fmmflx(:,:) = 0.0_wp                        ! freezing-melting array initialisation 
    148150 
    149151      !                                            ! restartability    
     
    362364                                                                ! (includes virtual salt flux beneath ice  
    363365                                                                ! in linear free surface case) 
     366         CALL iom_put( "fmmflx", fmmflx  )                      ! Freezing-melting water flux 
    364367         CALL iom_put( "qt"    , qns  + qsr )                   ! total heat flux  
    365368         CALL iom_put( "qns"   , qns        )                   ! solar heat flux 
Note: See TracChangeset for help on using the changeset viewer.