Ignore:
Timestamp:
2015-11-29T20:28:41+01:00 (5 years ago)
Author:
mathiot
Message:

ISF: change related to reviewers comments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r5921 r5944  
    235235                     &                              * (1._wp - tmask(ji,jj,jk)) 
    236236               END DO 
    237                IF (ikt .GE. 2) ziceload(ji,jj) = ziceload(ji,jj) + (2._wp * znad + zrhdtop_isf(ji,jj) + zrhd(ji,jj,ikt-1)) & 
     237               IF (ikt  >= 2) ziceload(ji,jj) = ziceload(ji,jj) + (2._wp * znad + zrhdtop_isf(ji,jj) + zrhd(ji,jj,ikt-1)) & 
    238238                                  &                              * ( risfdep(ji,jj) - gdept_1d(ikt-1) ) 
    239239            END DO 
     
    521521      REAL(wp), POINTER, DIMENSION(:,:,:)   ::  zhpi, zhpj 
    522522      REAL(wp), POINTER, DIMENSION(:,:,:)   ::  ztstop 
    523       REAL(wp), POINTER, DIMENSION(:,:)     ::  zrhdtop_oce, zpshpi, zpshpj 
     523      REAL(wp), POINTER, DIMENSION(:,:)     ::  zrhdtop_oce 
    524524      !!---------------------------------------------------------------------- 
    525525      ! 
    526526      CALL wrk_alloc( jpi,jpj,  2, ztstop)  
    527527      CALL wrk_alloc( jpi,jpj,jpk, zhpi, zhpj) 
    528       CALL wrk_alloc( jpi,jpj,     zrhdtop_oce, zpshpi, zpshpj)  
     528      CALL wrk_alloc( jpi,jpj,     zrhdtop_oce ) 
    529529      ! 
    530530      ! Local constant initialization 
     
    605605      CALL wrk_dealloc( jpi,jpj,2  , ztstop) 
    606606      CALL wrk_dealloc( jpi,jpj,jpk, zhpi, zhpj) 
    607       CALL wrk_dealloc( jpi,jpj    , zrhdtop_oce, zpshpi, zpshpj) 
     607      CALL wrk_dealloc( jpi,jpj    , zrhdtop_oce ) 
    608608      ! 
    609609   END SUBROUTINE hpg_isf 
Note: See TracChangeset for help on using the changeset viewer.