Changeset 13286 for NEMO/trunk/src/OCE/ASM
- Timestamp:
- 2020-07-09T17:48:29+02:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 2 2 ^/utils/build/makenemo@HEAD makenemo 3 3 ^/utils/build/mk@HEAD mk 4 ^/utils/tools /@HEADtools4 ^/utils/tools@HEAD tools 5 5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM … … 8 8 9 9 # SETTE 10 ^/utils/CI/ sette@12931sette10 ^/utils/CI/r12931_sette_ticket2366@HEAD sette
-
- Property svn:externals
-
NEMO/trunk/src/OCE/ASM/asminc.F90
r13237 r13286 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) … … 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.