Changeset 4793 for branches/2014/dev_r4765_CNRS_agrif
- Timestamp:
- 2014-09-26T14:38:42+02:00 (10 years ago)
- Location:
- branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO
- Files:
-
- 23 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r4765 r4793 301 301 302 302 IF(lwp) THEN 303 WRITE(numout,*) ,' ztests : ', ztests303 WRITE(numout,*) ' ztests : ', ztests 304 304 IF ( ztests .NE. 4 ) THEN 305 305 WRITE(numout,*) 306 WRITE(numout,*) ,' !!!! ALERT !!! '307 WRITE(numout,*) ,' !!!! Something is wrong in the LIM3 initialization procedure '306 WRITE(numout,*) ' !!!! ALERT !!! ' 307 WRITE(numout,*) ' !!!! Something is wrong in the LIM3 initialization procedure ' 308 308 WRITE(numout,*) 309 WRITE(numout,*) ,' *** ztests is not equal to 4 '310 WRITE(numout,*) ,' *** ztest_i (i=1,4) = ', ztest_1, ztest_2, ztest_3, ztest_4311 WRITE(numout,*) ,' zat_i_ini : ', zat_i_ini(i_hemis)312 WRITE(numout,*) ,' zht_i_ini : ', zht_i_ini(i_hemis)309 WRITE(numout,*) ' *** ztests is not equal to 4 ' 310 WRITE(numout,*) ' *** ztest_i (i=1,4) = ', ztest_1, ztest_2, ztest_3, ztest_4 311 WRITE(numout,*) ' zat_i_ini : ', zat_i_ini(i_hemis) 312 WRITE(numout,*) ' zht_i_ini : ', zht_i_ini(i_hemis) 313 313 ENDIF ! ztests .NE. 4 314 314 ENDIF -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_top_interp.F90
r4789 r4793 7 7 USE agrif_oce 8 8 USE agrif_top_sponge 9 USE par_trc 9 10 USE trc 10 11 USE lib_mpp … … 14 15 PRIVATE 15 16 16 PUBLIC Agrif_trc 17 PUBLIC Agrif_trc, interptrn 17 18 18 19 # include "domzgr_substitute.h90" … … 41 42 END SUBROUTINE Agrif_trc 42 43 43 SUBROUTINE interpt sn(ptab,i1,i2,j1,j2,k1,k2,n1,n2,before,nb,ndir)44 SUBROUTINE interptrn(ptab,i1,i2,j1,j2,k1,k2,n1,n2,before,nb,ndir) 44 45 !!--------------------------------------------- 45 !! *** ROUTINE interpt sn ***46 !! *** ROUTINE interptrn *** 46 47 !!--------------------------------------------- 47 48 REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2,n1:n2), INTENT(inout) :: ptab … … 57 58 58 59 IF (before) THEN 59 ptab(i1:i2,j1:j2,k1:k2,n1:n2) = t sn(i1:i2,j1:j2,k1:k2,n1:n2)60 ptab(i1:i2,j1:j2,k1:k2,n1:n2) = trn(i1:i2,j1:j2,k1:k2,n1:n2) 60 61 ELSE 61 62 ! -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90
r4789 r4793 4 4 #if defined key_agrif && defined key_top 5 5 USE par_oce 6 USE par_trc 6 7 USE oce 7 8 USE dom_oce … … 16 17 PRIVATE 17 18 18 PUBLIC Agrif_Sponge_trc, interptrn 19 PUBLIC Agrif_Sponge_trc, interptrn_sponge 19 20 20 21 !! * Substitutions … … 40 41 Agrif_SpecialValue=0. 41 42 Agrif_UseSpecialValue = .TRUE. 42 tabsponge trn = .FALSE.43 tabspongedone_trn = .FALSE. 43 44 CALL Agrif_Bc_Variable(trn_sponge_id,calledweight=timecoeff,procname=interptrn_sponge) 44 45 Agrif_UseSpecialValue = .FALSE. -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_top_update.F90
r4789 r4793 8 8 USE dom_oce 9 9 USE agrif_oce 10 USE par_trc 10 11 USE trc 11 12 USE wrk_nemo -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r4790 r4793 150 150 CALL Agrif_Set_Updatetype(e2v_id,update1 = Agrif_Update_Average, update2=Agrif_Update_Copy) 151 151 152 ! High order updates 153 ! CALL Agrif_Set_Updatetype(e1u_id,update1 = Agrif_Update_Average, update2=Agrif_Update_Full_Weighting) 154 ! CALL Agrif_Set_Updatetype(e2v_id,update1 = Agrif_Update_Full_Weighting, update2=Agrif_Update_Average) 155 ! 152 156 END SUBROUTINE agrif_declare_var_dom 153 157 … … 404 408 CALL Agrif_Set_Updatetype(avmv_id, update = AGRIF_Update_Average) 405 409 # endif 410 411 ! High order updates 412 ! CALL Agrif_Set_Updatetype(tsn_id, update = Agrif_Update_Full_Weighting) 413 ! CALL Agrif_Set_Updatetype(un_update_id,update1 = Agrif_Update_Average, update2 = Agrif_Update_Full_Weighting) 414 ! CALL Agrif_Set_Updatetype(vn_update_id,update1 = Agrif_Update_Full_Weighting, update2 = Agrif_Update_Average) 415 ! 416 ! CALL Agrif_Set_Updatetype(ub2b_update_id,update1 = Agrif_Update_Average, update2 = Agrif_Update_Full_Weighting) 417 ! CALL Agrif_Set_Updatetype(vb2b_update_id,update1 = Agrif_Update_Full_Weighting, update2 = Agrif_Update_Average) 418 ! CALL Agrif_Set_Updatetype(sshn_id, update = Agrif_Update_Full_Weighting) 419 406 420 ! 407 421 END SUBROUTINE agrif_declare_var … … 499 513 CALL Agrif_Set_Updatetype(u_ice_id,update1 = Agrif_Update_Copy, update2 = Agrif_Update_Average) 500 514 CALL Agrif_Set_Updatetype(v_ice_id,update1 = Agrif_Update_Average, update2 = Agrif_Update_Copy) 501 515 ! 502 516 END SUBROUTINE agrif_declare_var_lim2 503 517 # endif … … 519 533 USE trc 520 534 USE in_out_manager 535 USE agrif_opa_sponge 521 536 USE agrif_top_update 522 537 USE agrif_top_interp … … 641 656 !--------------- 642 657 CALL Agrif_Set_Updatetype(trn_id, update = AGRIF_Update_Average) 658 659 ! Higher order update 660 ! CALL Agrif_Set_Updatetype(tsn_id, update = Agrif_Update_Full_Weighting) 661 643 662 ! 644 663 END SUBROUTINE agrif_declare_var_top … … 649 668 !! *** ROUTINE Agrif_detect *** 650 669 !!---------------------------------------------------------------------- 651 USE Agrif_Types652 670 ! 653 671 INTEGER, DIMENSION(2) :: ksizex -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zbio.F90
r4624 r4793 598 598 599 599 !!====================================================================== 600 END MODULE 600 END MODULE p2zbio -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zbio.F90
r4529 r4793 146 146 147 147 !!====================================================================== 148 END MODULE p4zbio 149 148 END MODULE p4zbio -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zche.F90
r3557 r4793 396 396 397 397 !!====================================================================== 398 END MODULE 398 END MODULE p4zche -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90
r4624 r4793 378 378 379 379 !!====================================================================== 380 END MODULE 380 END MODULE p4zflx -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zint.F90
r3446 r4793 81 81 82 82 !!====================================================================== 83 END MODULE 83 END MODULE p4zint -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlim.F90
r4624 r4793 267 267 268 268 !!====================================================================== 269 END MODULE 269 END MODULE p4zlim -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlys.F90
r4624 r4793 228 228 #endif 229 229 !!====================================================================== 230 END MODULE 230 END MODULE p4zlys -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmeso.F90
r4624 r4793 334 334 335 335 !!====================================================================== 336 END MODULE 336 END MODULE p4zmeso -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90
r4624 r4793 270 270 271 271 !!====================================================================== 272 END MODULE 272 END MODULE p4zmicro -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90
r4624 r4793 277 277 278 278 !!====================================================================== 279 END MODULE 279 END MODULE p4zmort -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90
r4624 r4793 404 404 405 405 !!====================================================================== 406 END MODULE 406 END MODULE p4zopt -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90
r4624 r4793 537 537 538 538 !!====================================================================== 539 END MODULE 539 END MODULE p4zprod -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90
r4624 r4793 517 517 518 518 !!====================================================================== 519 END MODULE 519 END MODULE p4zsbc -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsed.F90
r4641 r4793 433 433 434 434 !!====================================================================== 435 END MODULE 435 END MODULE p4zsed -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsink.F90
r4624 r4793 815 815 816 816 !!====================================================================== 817 END MODULE 817 END MODULE p4zsink -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90
r4611 r4793 102 102 ENDIF 103 103 104 #if defined key_agrif 105 CALL Agrif_trc ! AGRIF zoom boundaries 106 #endif 104 107 ! Update after tracer on domain lateral boundaries 105 108 DO jn = 1, jptra … … 110 113 #if defined key_bdy 111 114 !! CALL bdy_trc( kt ) ! BDY open boundaries 112 #endif113 #if defined key_agrif114 CALL Agrif_trc ! AGRIF zoom boundaries115 115 #endif 116 116 -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r4624 r4793 342 342 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 343 343 !!====================================================================== 344 END MODULE 344 END MODULE trcnam -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/trcsms.F90
r3680 r4793 75 75 76 76 !!====================================================================== 77 END MODULE 77 END MODULE trcsms
Note: See TracChangeset
for help on using the changeset viewer.