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 13286 for NEMO/trunk/src/OCE/ASM – NEMO

Ignore:
Timestamp:
2020-07-09T17:48:29+02:00 (4 years ago)
Author:
smasson
Message:

trunk: merge extra halos branch in trunk, see #2366

Location:
NEMO/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk

    • Property svn:externals
      •  

        old new  
        22^/utils/build/makenemo@HEAD   makenemo 
        33^/utils/build/mk@HEAD         mk 
        4 ^/utils/tools/@HEAD           tools 
         4^/utils/tools@HEAD            tools 
        55^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS      ext/AGRIF 
        66^/vendors/FCM@HEAD            ext/FCM 
         
        88 
        99# SETTE 
        10 ^/utils/CI/sette@12931        sette 
         10^/utils/CI/r12931_sette_ticket2366@HEAD  sette 
  • NEMO/trunk/src/OCE/ASM/asminc.F90

    r13237 r13286  
    360360 
    361361         IF ( ln_trainc ) THEN    
    362             CALL iom_get( inum, jpdom_autoglo, 'bckint', t_bkginc, 1 ) 
    363             CALL iom_get( inum, jpdom_autoglo, 'bckins', s_bkginc, 1 ) 
     362            CALL iom_get( inum, jpdom_auto, 'bckint', t_bkginc, 1 ) 
     363            CALL iom_get( inum, jpdom_auto, 'bckins', s_bkginc, 1 ) 
    364364            ! Apply the masks 
    365365            t_bkginc(:,:,:) = t_bkginc(:,:,:) * tmask(:,:,:) 
     
    372372 
    373373         IF ( ln_dyninc ) THEN    
    374             CALL iom_get( inum, jpdom_autoglo, 'bckinu', u_bkginc, 1 )               
    375             CALL iom_get( inum, jpdom_autoglo, 'bckinv', v_bkginc, 1 )               
     374            CALL iom_get( inum, jpdom_auto, 'bckinu', u_bkginc, 1 )               
     375            CALL iom_get( inum, jpdom_auto, 'bckinv', v_bkginc, 1 )               
    376376            ! Apply the masks 
    377377            u_bkginc(:,:,:) = u_bkginc(:,:,:) * umask(:,:,:) 
     
    384384         
    385385         IF ( ln_sshinc ) THEN 
    386             CALL iom_get( inum, jpdom_autoglo, 'bckineta', ssh_bkginc, 1 ) 
     386            CALL iom_get( inum, jpdom_auto, 'bckineta', ssh_bkginc, 1 ) 
    387387            ! Apply the masks 
    388388            ssh_bkginc(:,:) = ssh_bkginc(:,:) * tmask(:,:,1) 
     
    393393 
    394394         IF ( ln_seaiceinc ) THEN 
    395             CALL iom_get( inum, jpdom_autoglo, 'bckinseaice', seaice_bkginc, 1 ) 
     395            CALL iom_get( inum, jpdom_auto, 'bckinseaice', seaice_bkginc, 1 ) 
    396396            ! Apply the masks 
    397397            seaice_bkginc(:,:) = seaice_bkginc(:,:) * tmask(:,:,1) 
     
    467467         ! 
    468468         IF ( ln_trainc ) THEN    
    469             CALL iom_get( inum, jpdom_autoglo, 'tn', t_bkg ) 
    470             CALL iom_get( inum, jpdom_autoglo, 'sn', s_bkg ) 
     469            CALL iom_get( inum, jpdom_auto, 'tn', t_bkg ) 
     470            CALL iom_get( inum, jpdom_auto, 'sn', s_bkg ) 
    471471            t_bkg(:,:,:) = t_bkg(:,:,:) * tmask(:,:,:) 
    472472            s_bkg(:,:,:) = s_bkg(:,:,:) * tmask(:,:,:) 
     
    474474         ! 
    475475         IF ( ln_dyninc ) THEN    
    476             CALL iom_get( inum, jpdom_autoglo, 'un', u_bkg ) 
    477             CALL iom_get( inum, jpdom_autoglo, 'vn', v_bkg ) 
     476            CALL iom_get( inum, jpdom_auto, 'un', u_bkg, cd_type = 'U', psgn = 1._wp ) 
     477            CALL iom_get( inum, jpdom_auto, 'vn', v_bkg, cd_type = 'V', psgn = 1._wp ) 
    478478            u_bkg(:,:,:) = u_bkg(:,:,:) * umask(:,:,:) 
    479479            v_bkg(:,:,:) = v_bkg(:,:,:) * vmask(:,:,:) 
     
    481481         ! 
    482482         IF ( ln_sshinc ) THEN 
    483             CALL iom_get( inum, jpdom_autoglo, 'sshn', ssh_bkg ) 
     483            CALL iom_get( inum, jpdom_auto, 'sshn', ssh_bkg ) 
    484484            ssh_bkg(:,:) = ssh_bkg(:,:) * tmask(:,:,1) 
    485485         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.