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 14037 for NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/SWE/asminc.F90 – NEMO

Ignore:
Timestamp:
2020-12-03T12:20:38+01:00 (3 years ago)
Author:
ayoung
Message:

Updated to trunk at 14020. Sette tests passed with change of results for configurations with non-linear ssh. Ticket #2506.

Location:
NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG

    • Property svn:externals

      •  

        old new  
        88 
        99# SETTE 
        10 ^/utils/CI/sette@13292        sette 
         10^/utils/CI/sette_wave@13990         sette 

  • NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/SWE/asminc.F90

    r13295 r14037  
    362362 
    363363         IF ( ln_trainc ) THEN    
    364             CALL iom_get( inum, jpdom_autoglo, 'bckint', t_bkginc, 1 ) 
    365             CALL iom_get( inum, jpdom_autoglo, 'bckins', s_bkginc, 1 ) 
     364            CALL iom_get( inum, jpdom_auto, 'bckint', t_bkginc, 1 ) 
     365            CALL iom_get( inum, jpdom_auto, 'bckins', s_bkginc, 1 ) 
    366366            ! Apply the masks 
    367367            t_bkginc(:,:,:) = t_bkginc(:,:,:) * tmask(:,:,:) 
    … …  
    374374 
    375375         IF ( ln_dyninc ) THEN    
    376             CALL iom_get( inum, jpdom_autoglo, 'bckinu', u_bkginc, 1 )               
    377             CALL iom_get( inum, jpdom_autoglo, 'bckinv', v_bkginc, 1 )               
     376            CALL iom_get( inum, jpdom_auto, 'bckinu', u_bkginc, 1 )               
     377            CALL iom_get( inum, jpdom_auto, 'bckinv', v_bkginc, 1 )               
    378378            ! Apply the masks 
    379379            u_bkginc(:,:,:) = u_bkginc(:,:,:) * umask(:,:,:) 
    … …  
    386386         
    387387         IF ( ln_sshinc ) THEN 
    388             CALL iom_get( inum, jpdom_autoglo, 'bckineta', ssh_bkginc, 1 ) 
     388            CALL iom_get( inum, jpdom_auto, 'bckineta', ssh_bkginc, 1 ) 
    389389            ! Apply the masks 
    390390            ssh_bkginc(:,:) = ssh_bkginc(:,:) * tmask(:,:,1) 
    … …  
    395395 
    396396         IF ( ln_seaiceinc ) THEN 
    397             CALL iom_get( inum, jpdom_autoglo, 'bckinseaice', seaice_bkginc, 1 ) 
     397            CALL iom_get( inum, jpdom_auto, 'bckinseaice', seaice_bkginc, 1 ) 
    398398            ! Apply the masks 
    399399            seaice_bkginc(:,:) = seaice_bkginc(:,:) * tmask(:,:,1) 
    … …  
    469469         ! 
    470470         IF ( ln_trainc ) THEN    
    471             CALL iom_get( inum, jpdom_autoglo, 'tn', t_bkg ) 
    472             CALL iom_get( inum, jpdom_autoglo, 'sn', s_bkg ) 
     471            CALL iom_get( inum, jpdom_auto, 'tn', t_bkg ) 
     472            CALL iom_get( inum, jpdom_auto, 'sn', s_bkg ) 
    473473            t_bkg(:,:,:) = t_bkg(:,:,:) * tmask(:,:,:) 
    474474            s_bkg(:,:,:) = s_bkg(:,:,:) * tmask(:,:,:) 
    … …  
    476476         ! 
    477477         IF ( ln_dyninc ) THEN    
    478             CALL iom_get( inum, jpdom_autoglo, 'un', u_bkg ) 
    479             CALL iom_get( inum, jpdom_autoglo, 'vn', v_bkg ) 
     478            CALL iom_get( inum, jpdom_auto, 'un', u_bkg ) 
     479            CALL iom_get( inum, jpdom_auto, 'vn', v_bkg ) 
    480480            u_bkg(:,:,:) = u_bkg(:,:,:) * umask(:,:,:) 
    481481            v_bkg(:,:,:) = v_bkg(:,:,:) * vmask(:,:,:) 
    … …  
    483483         ! 
    484484         IF ( ln_sshinc ) THEN 
    485             CALL iom_get( inum, jpdom_autoglo, 'sshn', ssh_bkg ) 
     485            CALL iom_get( inum, jpdom_auto, 'sshn', ssh_bkg ) 
    486486            ssh_bkg(:,:) = ssh_bkg(:,:) * tmask(:,:,1) 
    487487         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.