- Timestamp:
- 2020-04-08T21:37:59+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev _r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@HEAD sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DOM/domqe.F90
r12680 r12724 556 556 ! 557 557 IF( ln_dynadv_vec ) THEN !- Vector Form (thickness weighted averaging) 558 DO_2D_ 11_11558 DO_2D_00_00 559 559 pr3u(ji,jj) = 0.5_wp * ( e1e2t(ji ,jj) * pssh(ji ,jj) & 560 560 & + e1e2t(ji+1,jj) * pssh(ji+1,jj) ) * r1_hu_0(ji,jj) * r1_e1e2u(ji,jj) … … 563 563 END_2D 564 564 ELSE !- Flux Form (simple averaging) 565 DO_2D_ 11_11565 DO_2D_00_00 566 566 pr3u(ji,jj) = 0.5_wp * ( pssh(ji ,jj) + pssh(ji+1,jj) ) * r1_hu_0(ji,jj) 567 567 pr3v(ji,jj) = 0.5_wp * ( pssh(ji,jj ) + pssh(ji,jj+1) ) * r1_hv_0(ji,jj) … … 576 576 ! 577 577 IF( ln_dynadv_vec ) THEN !- Vector Form (thickness weighted averaging) 578 DO_2D_ 01_01! start from 1 since lbc_lnk('F') doesn't update the 1st row/line578 DO_2D_10_10 ! start from 1 since lbc_lnk('F') doesn't update the 1st row/line 579 579 pr3f(ji,jj) = 0.25_wp * ( e1e2t(ji ,jj ) * pssh(ji ,jj ) & 580 580 & + e1e2t(ji+1,jj ) * pssh(ji+1,jj ) & … … 583 583 END_2D 584 584 ELSE !- Flux Form (simple averaging) 585 DO_2D_ 01_01! start from 1 since lbc_lnk('F') doesn't update the 1st row/line585 DO_2D_10_10 ! start from 1 since lbc_lnk('F') doesn't update the 1st row/line 586 586 pr3f(ji,jj) = 0.25_wp * ( pssh(ji ,jj ) + pssh(ji+1,jj ) & 587 587 & + pssh(ji ,jj+1) + pssh(ji+1,jj+1) ) * r1_hf_0(ji,jj) … … 632 632 ssh(:,:,Kbb) = 0._wp 633 633 END WHERE 634 IF( neuler == 0) THEN634 IF( l_1st_euler ) THEN 635 635 ssh(:,:,Kbb) = ssh(:,:,Kmm) 636 636 ENDIF … … 641 641 CALL iom_get( numror, jpdom_autoglo, 'sshb', ssh(:,:,Kbb), ldxios = lrxios ) 642 642 ssh(:,:,Kmm) = ssh(:,:,Kbb) 643 neuler = 0643 l_1st_euler = .TRUE. 644 644 ELSE IF( id2 > 0 ) THEN 645 645 IF(lwp) write(numout,*) 'qe_rst_read WARNING : ssh(:,:,Kbb) not found in restart files' … … 648 648 CALL iom_get( numror, jpdom_autoglo, 'sshn', ssh(:,:,Kmm), ldxios = lrxios ) 649 649 ssh(:,:,Kbb) = ssh(:,:,Kmm) 650 neuler = 0650 l_1st_euler = .TRUE. 651 651 ELSE 652 652 IF(lwp) write(numout,*) 'qe_rst_read WARNING : ssh(:,:,Kmm) not found in restart file' … … 654 654 IF(lwp) write(numout,*) 'neuler is forced to 0' 655 655 ssh(:,:,:) = 0._wp 656 neuler = 0656 l_1st_euler = .TRUE. 657 657 ENDIF 658 658 ! … … 741 741 WRITE(numout,*) ' rn_rst_e3t = 0.e0' 742 742 WRITE(numout,*) ' hard-wired : z-tilde cutoff frequency of low-pass filter (days)' 743 WRITE(numout,*) ' rn_lf_cutoff = 1.0/r dt'743 WRITE(numout,*) ' rn_lf_cutoff = 1.0/rn_Dt' 744 744 ELSE 745 745 WRITE(numout,*) ' z-tilde to zstar restoration timescale (days) rn_rst_e3t = ', rn_rst_e3t
Note: See TracChangeset
for help on using the changeset viewer.