- Timestamp:
- 2020-04-11T15:38:38+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/CANAL/MY_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/CANAL/MY_SRC/domvvl.F90
r12489 r12738 803 803 IF( ln_rstart ) THEN !* Read the restart file 804 804 CALL rst_read_open ! open the restart file if necessary 805 CALL iom_get( numror, jpdom_auto glo, 'sshn' , ssh(:,:,Kmm), ldxios = lrxios )805 CALL iom_get( numror, jpdom_auto, 'sshn' , ssh(:,:,Kmm), ldxios = lrxios ) 806 806 ! 807 807 id1 = iom_varid( numror, 'e3t_b', ldstop = .FALSE. ) … … 814 814 ! ! --------- ! 815 815 IF( MIN( id1, id2 ) > 0 ) THEN ! all required arrays exist 816 CALL iom_get( numror, jpdom_auto glo, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lrxios )817 CALL iom_get( numror, jpdom_auto glo, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lrxios )816 CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lrxios ) 817 CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lrxios ) 818 818 ! needed to restart if land processor not computed 819 819 IF(lwp) write(numout,*) 'dom_vvl_rst : e3t(:,:,:,Kbb) and e3t(:,:,:,Kmm) found in restart files' … … 829 829 IF(lwp) write(numout,*) 'e3t_n set equal to e3t_b.' 830 830 IF(lwp) write(numout,*) 'l_1st_euler is forced to .true.' 831 CALL iom_get( numror, jpdom_auto glo, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lrxios )831 CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lrxios ) 832 832 e3t(:,:,:,Kmm) = e3t(:,:,:,Kbb) 833 833 l_1st_euler = .true. … … 836 836 IF(lwp) write(numout,*) 'e3t_b set equal to e3t_n.' 837 837 IF(lwp) write(numout,*) 'l_1st_euler is forced to .true.' 838 CALL iom_get( numror, jpdom_auto glo, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lrxios )838 CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lrxios ) 839 839 e3t(:,:,:,Kbb) = e3t(:,:,:,Kmm) 840 840 l_1st_euler = .true. … … 861 861 ! ! ----------------------- ! 862 862 IF( MIN( id3, id4 ) > 0 ) THEN ! all required arrays exist 863 CALL iom_get( numror, jpdom_auto glo, 'tilde_e3t_b', tilde_e3t_b(:,:,:), ldxios = lrxios )864 CALL iom_get( numror, jpdom_auto glo, 'tilde_e3t_n', tilde_e3t_n(:,:,:), ldxios = lrxios )863 CALL iom_get( numror, jpdom_auto, 'tilde_e3t_b', tilde_e3t_b(:,:,:), ldxios = lrxios ) 864 CALL iom_get( numror, jpdom_auto, 'tilde_e3t_n', tilde_e3t_n(:,:,:), ldxios = lrxios ) 865 865 ELSE ! one at least array is missing 866 866 tilde_e3t_b(:,:,:) = 0.0_wp … … 871 871 ! ! ------------ ! 872 872 IF( id5 > 0 ) THEN ! required array exists 873 CALL iom_get( numror, jpdom_auto glo, 'hdiv_lf', hdiv_lf(:,:,:), ldxios = lrxios )873 CALL iom_get( numror, jpdom_auto, 'hdiv_lf', hdiv_lf(:,:,:), ldxios = lrxios ) 874 874 ELSE ! array is missing 875 875 hdiv_lf(:,:,:) = 0.0_wp -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/CANAL/MY_SRC/sbcmod.F90
r12489 r12738 499 499 & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 500 500 IF(lwp) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file' 501 CALL iom_get( numror, jpdom_auto glo, 'utau_b', utau_b, ldxios = lrxios) ! before i-stress (U-point)502 CALL iom_get( numror, jpdom_auto glo, 'vtau_b', vtau_b, ldxios = lrxios) ! before j-stress (V-point)503 CALL iom_get( numror, jpdom_auto glo, 'qns_b' , qns_b, ldxios = lrxios) ! before non solar heat flux (T-point)501 CALL iom_get( numror, jpdom_auto, 'utau_b', utau_b, ldxios = lrxios, cd_type = 'U', psgn = -1._wp ) ! before i-stress (U-point) 502 CALL iom_get( numror, jpdom_auto, 'vtau_b', vtau_b, ldxios = lrxios, cd_type = 'V', psgn = -1._wp ) ! before j-stress (V-point) 503 CALL iom_get( numror, jpdom_auto, 'qns_b', qns_b, ldxios = lrxios ) ! before non solar heat flux (T-point) 504 504 ! The 3D heat content due to qsr forcing is treated in traqsr 505 ! CALL iom_get( numror, jpdom_auto glo, 'qsr_b' , qsr_b, ldxios = lrxios ) ! before solar heat flux (T-point)506 CALL iom_get( numror, jpdom_auto glo, 'emp_b', emp_b, ldxios = lrxios ) ! before freshwater flux (T-point)505 ! CALL iom_get( numror, jpdom_auto, 'qsr_b' , qsr_b, ldxios = lrxios ) ! before solar heat flux (T-point) 506 CALL iom_get( numror, jpdom_auto, 'emp_b', emp_b, ldxios = lrxios ) ! before freshwater flux (T-point) 507 507 ! To ensure restart capability with 3.3x/3.4 restart files !! to be removed in v3.6 508 508 IF( iom_varid( numror, 'sfx_b', ldstop = .FALSE. ) > 0 ) THEN 509 CALL iom_get( numror, jpdom_auto glo, 'sfx_b', sfx_b, ldxios = lrxios ) ! before salt flux (T-point)509 CALL iom_get( numror, jpdom_auto, 'sfx_b', sfx_b, ldxios = lrxios ) ! before salt flux (T-point) 510 510 ELSE 511 511 sfx_b (:,:) = sfx(:,:)
Note: See TracChangeset
for help on using the changeset viewer.