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 8592 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90 – NEMO

Ignore:
Timestamp:
2017-10-04T20:08:33+02:00 (7 years ago)
Author:
clem
Message:

rewrite ice albedo routine

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90

    r8564 r8592  
    147147      END DO 
    148148 
    149       ! MV MP 2016 
    150       IF ( nn_pnd_scheme > 0 ) THEN 
    151          DO jl = 1, jpl  
    152             WRITE(zchar,'(I2.2)') jl 
    153             znam = 'a_ip'//'_htc'//zchar 
    154             z2d(:,:) = a_ip(:,:,jl) 
    155             CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) ! a_ip 
    156             znam = 'v_ip'//'_htc'//zchar 
    157             z2d(:,:) = v_ip(:,:,jl) 
    158             CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) ! v_ip 
    159          END DO 
    160       ENDIF 
    161       ! END MV MP 2016 
     149      DO jl = 1, jpl  
     150         WRITE(zchar,'(I2.2)') jl 
     151         znam = 'a_ip'//'_htc'//zchar 
     152         z2d(:,:) = a_ip(:,:,jl) 
     153         CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) ! a_ip 
     154         znam = 'v_ip'//'_htc'//zchar 
     155         z2d(:,:) = v_ip(:,:,jl) 
     156         CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) ! v_ip 
     157      END DO 
    162158 
    163159      DO jl = 1, jpl  
    … …  
    248244      END DO 
    249245 
    250       ! MV MP 2016 
    251       IF ( nn_pnd_scheme > 0 ) THEN 
    252          DO jl = 1, jpl  
    253             WRITE(zchar,'(I2.2)') jl 
    254             znam = 'a_ip'//'_htc'//zchar 
    255             CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 
    256             a_ip(:,:,jl) = z2d(:,:) 
    257             znam = 'v_ip'//'_htc'//zchar 
    258             CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 
    259             v_ip(:,:,jl) = z2d(:,:) 
    260          END DO 
    261       ENDIF 
    262       ! END MV MP 2016 
     246      DO jl = 1, jpl  
     247         WRITE(zchar,'(I2.2)') jl 
     248         znam = 'a_ip'//'_htc'//zchar 
     249         CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 
     250         a_ip(:,:,jl) = z2d(:,:) 
     251         znam = 'v_ip'//'_htc'//zchar 
     252         CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 
     253         v_ip(:,:,jl) = z2d(:,:) 
     254      END DO 
    263255 
    264256      DO jl = 1, jpl  
Note: See TracChangeset for help on using the changeset viewer.