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 12744 for NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/iceitd.F90 – NEMO

Ignore:
Timestamp:
2020-04-12T16:11:29+02:00 (4 years ago)
Author:
clem
Message:

make sure all pond lids are set to 0 when not using this option

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/iceitd.F90

    r12720 r12744  
    483483                  v_ip_2d(ji,jl1) = v_ip_2d(ji,jl1) - ztrans 
    484484                  v_ip_2d(ji,jl2) = v_ip_2d(ji,jl2) + ztrans 
    485                   !                                               
    486                   ztrans          = v_il_2d(ji,jl1) * zworka(ji)     ! Pond lid volume 
    487                   v_il_2d(ji,jl1) = v_il_2d(ji,jl1) - ztrans 
    488                   v_il_2d(ji,jl2) = v_il_2d(ji,jl2) + ztrans 
     485                  ! 
     486                  IF ( ln_pnd_lids ) THEN                            ! Pond lid volume 
     487                     ztrans          = v_il_2d(ji,jl1) * zworka(ji) 
     488                     v_il_2d(ji,jl1) = v_il_2d(ji,jl1) - ztrans 
     489                     v_il_2d(ji,jl2) = v_il_2d(ji,jl2) + ztrans 
     490                  ENDIF 
    489491               ENDIF 
    490492               ! 
Note: See TracChangeset for help on using the changeset viewer.