- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/ASM/asminc.F90
r13237 r13899 360 360 361 361 IF ( ln_trainc ) THEN 362 CALL iom_get( inum, jpdom_auto glo, 'bckint', t_bkginc, 1 )363 CALL iom_get( inum, jpdom_auto glo, '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 ) 364 364 ! Apply the masks 365 365 t_bkginc(:,:,:) = t_bkginc(:,:,:) * tmask(:,:,:) … … 372 372 373 373 IF ( ln_dyninc ) THEN 374 CALL iom_get( inum, jpdom_auto glo, 'bckinu', u_bkginc, 1 )375 CALL iom_get( inum, jpdom_auto glo, '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 ) 376 376 ! Apply the masks 377 377 u_bkginc(:,:,:) = u_bkginc(:,:,:) * umask(:,:,:) … … 384 384 385 385 IF ( ln_sshinc ) THEN 386 CALL iom_get( inum, jpdom_auto glo, 'bckineta', ssh_bkginc, 1 )386 CALL iom_get( inum, jpdom_auto, 'bckineta', ssh_bkginc, 1 ) 387 387 ! Apply the masks 388 388 ssh_bkginc(:,:) = ssh_bkginc(:,:) * tmask(:,:,1) … … 393 393 394 394 IF ( ln_seaiceinc ) THEN 395 CALL iom_get( inum, jpdom_auto glo, 'bckinseaice', seaice_bkginc, 1 )395 CALL iom_get( inum, jpdom_auto, 'bckinseaice', seaice_bkginc, 1 ) 396 396 ! Apply the masks 397 397 seaice_bkginc(:,:) = seaice_bkginc(:,:) * tmask(:,:,1) … … 414 414 DO jk = 1, jpkm1 ! zhdiv = e1e1 * div 415 415 zhdiv(:,:) = 0._wp 416 DO_2D _00_00416 DO_2D( 0, 0, 0, 0 ) 417 417 zhdiv(ji,jj) = ( e2u(ji ,jj) * e3u(ji ,jj,jk,Kmm) * u_bkginc(ji ,jj,jk) & 418 418 & - e2u(ji-1,jj) * e3u(ji-1,jj,jk,Kmm) * u_bkginc(ji-1,jj,jk) & … … 423 423 CALL lbc_lnk( 'asminc', zhdiv, 'T', 1.0_wp ) ! lateral boundary cond. (no sign change) 424 424 ! 425 DO_2D _00_00425 DO_2D( 0, 0, 0, 0 ) 426 426 u_bkginc(ji,jj,jk) = u_bkginc(ji,jj,jk) & 427 427 & + 0.2_wp * ( zhdiv(ji+1,jj) - zhdiv(ji ,jj) ) * r1_e1u(ji,jj) * umask(ji,jj,jk) … … 467 467 ! 468 468 IF ( ln_trainc ) THEN 469 CALL iom_get( inum, jpdom_auto glo, 'tn', t_bkg )470 CALL iom_get( inum, jpdom_auto glo, 'sn', s_bkg )469 CALL iom_get( inum, jpdom_auto, 'tn', t_bkg ) 470 CALL iom_get( inum, jpdom_auto, 'sn', s_bkg ) 471 471 t_bkg(:,:,:) = t_bkg(:,:,:) * tmask(:,:,:) 472 472 s_bkg(:,:,:) = s_bkg(:,:,:) * tmask(:,:,:) … … 474 474 ! 475 475 IF ( ln_dyninc ) THEN 476 CALL iom_get( inum, jpdom_auto glo, 'un', u_bkg)477 CALL iom_get( inum, jpdom_auto glo, '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 ) 478 478 u_bkg(:,:,:) = u_bkg(:,:,:) * umask(:,:,:) 479 479 v_bkg(:,:,:) = v_bkg(:,:,:) * vmask(:,:,:) … … 481 481 ! 482 482 IF ( ln_sshinc ) THEN 483 CALL iom_get( inum, jpdom_auto glo, 'sshn', ssh_bkg )483 CALL iom_get( inum, jpdom_auto, 'sshn', ssh_bkg ) 484 484 ssh_bkg(:,:) = ssh_bkg(:,:) * tmask(:,:,1) 485 485 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.