Ignore:
Timestamp:
2019-10-29T12:00:04+01:00 (12 months ago)
Author:
mathiot
Message:

rm useless USE statement, option compatibility test + minor changes

File:
1 edited

Legend:

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

    r11553 r11823  
    1616   USE isfutils       ! debuging 
    1717   USE lib_mpp        ! mpp routine 
     18   USE domvvl         ! vertical scale factor interpolation 
    1819   ! 
    1920   USE in_out_manager ! I/O manager 
     
    6263      ! 
    6364      ! mask velocity properly (mask used in restart not compatible with new mask) 
    64       un(:,:,:) = un(:,:,:,) * umask(:,:,:) 
    65       vn(:,:,:) = vn(:,:,:,) * vmask(:,:,:) 
     65      un(:,:,:) = un(:,:,:) * umask(:,:,:) 
     66      vn(:,:,:) = vn(:,:,:) * vmask(:,:,:) 
    6667      ! 
    6768      ! Need to : - include in the cpl cons the risfcpl_vol/tsc contribution 
     
    9192   END SUBROUTINE isfcpl_rst_write 
    9293 
    93    SUBROUTINE isfcpl_ssh () 
     94   SUBROUTINE isfcpl_ssh 
    9495      !!----------------------------------------------------------------------  
    9596      !!                   ***  ROUTINE iscpl_ssh  *** 
     
    149150      sshn(:,:) = zssh(:,:) * ssmask(:,:) 
    150151      ! 
    151       ! force to start on an euler time step 
    152       neuler = 0 
    153       ! 
    154152      sshb(:,:) = sshn(:,:) 
    155153      ! 
     154      ! recompute the vertical scale factor, depth and water thickness 
     155      CALL dom_vvl_zgr 
     156      ! 
    156157   END SUBROUTINE isfcpl_ssh 
    157158 
    158    SUBROUTINE isfcpl_tra () 
     159   SUBROUTINE isfcpl_tra 
    159160      !!----------------------------------------------------------------------  
    160161      !!                   ***  ROUTINE iscpl_tra  *** 
     
    297298      tsn(:,:,:,jp_sal) = zts0(:,:,:,jp_sal) * tmask(:,:,:) 
    298299      ! 
     300      tsb(:,:,:,:) = tsn(:,:,:,:) 
     301      ! 
    299302      ! sanity check 
    300303      ! ----------------------------------------------------------------------------------------- 
     
    383386      CALL lbc_lnk( 'iscpl', zqvolb, 'T', 1. ) 
    384387      CALL lbc_lnk( 'iscpl', zqvoln, 'T', 1. ) 
    385       DO jk = 1,jpk 
    386       CALL debug('zqvolb',zqvolb(:,:,jk)) 
    387       END DO 
    388       DO jk = 1,jpk 
    389       CALL debug('zqvoln',zqvoln(:,:,jk)) 
    390       END DO 
    391388      ! 
    392389      ! get 3d tra increment to apply at the first time step 
Note: See TracChangeset for help on using the changeset viewer.