Changeset 4793


Ignore:
Timestamp:
2014-09-26T14:38:42+02:00 (6 years ago)
Author:
rblod
Message:

dev_r4765_CNRS_agrif: changes for compatibily with TOP

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  
    301301 
    302302      IF(lwp) THEN  
    303          WRITE(numout,*), ' ztests : ', ztests 
     303         WRITE(numout,*) ' ztests : ', ztests 
    304304         IF ( ztests .NE. 4 ) THEN 
    305305            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 ' 
    308308            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_4 
    311             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) 
    313313         ENDIF ! ztests .NE. 4 
    314314      ENDIF 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_top_interp.F90

    r4789 r4793  
    77   USE agrif_oce 
    88   USE agrif_top_sponge 
     9   USE par_trc 
    910   USE trc 
    1011   USE lib_mpp 
     
    1415   PRIVATE 
    1516 
    16    PUBLIC Agrif_trc 
     17   PUBLIC Agrif_trc, interptrn 
    1718 
    1819#  include "domzgr_substitute.h90"   
     
    4142   END SUBROUTINE Agrif_trc 
    4243 
    43    SUBROUTINE interptsn(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) 
    4445      !!--------------------------------------------- 
    45       !!   *** ROUTINE interptsn *** 
     46      !!   *** ROUTINE interptrn *** 
    4647      !!--------------------------------------------- 
    4748      REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2,n1:n2), INTENT(inout) :: ptab 
     
    5758 
    5859      IF (before) THEN          
    59          ptab(i1:i2,j1:j2,k1:k2,n1:n2) = tsn(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) 
    6061      ELSE 
    6162         ! 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90

    r4789 r4793  
    44#if defined key_agrif && defined key_top 
    55   USE par_oce 
     6   USE par_trc 
    67   USE oce 
    78   USE dom_oce 
     
    1617   PRIVATE 
    1718 
    18    PUBLIC Agrif_Sponge_trc, interptrn 
     19   PUBLIC Agrif_Sponge_trc, interptrn_sponge 
    1920 
    2021   !! * Substitutions 
     
    4041      Agrif_SpecialValue=0. 
    4142      Agrif_UseSpecialValue = .TRUE. 
    42       tabspongetrn = .FALSE. 
     43      tabspongedone_trn = .FALSE. 
    4344      CALL Agrif_Bc_Variable(trn_sponge_id,calledweight=timecoeff,procname=interptrn_sponge) 
    4445      Agrif_UseSpecialValue = .FALSE. 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_top_update.F90

    r4789 r4793  
    88   USE dom_oce 
    99   USE agrif_oce 
     10   USE par_trc 
    1011   USE trc 
    1112   USE wrk_nemo   
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r4790 r4793  
    150150   CALL Agrif_Set_Updatetype(e2v_id,update1 = Agrif_Update_Average, update2=Agrif_Update_Copy) 
    151151 
     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    ! 
    152156END SUBROUTINE agrif_declare_var_dom 
    153157 
     
    404408   CALL Agrif_Set_Updatetype(avmv_id, update = AGRIF_Update_Average) 
    405409# 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  
    406420   ! 
    407421END SUBROUTINE agrif_declare_var 
     
    499513   CALL Agrif_Set_Updatetype(u_ice_id,update1 = Agrif_Update_Copy, update2 = Agrif_Update_Average) 
    500514   CALL Agrif_Set_Updatetype(v_ice_id,update1 = Agrif_Update_Average, update2 = Agrif_Update_Copy) 
    501  
     515   !  
    502516END SUBROUTINE agrif_declare_var_lim2 
    503517#  endif 
     
    519533   USE trc 
    520534   USE in_out_manager 
     535   USE agrif_opa_sponge 
    521536   USE agrif_top_update 
    522537   USE agrif_top_interp 
     
    641656   !---------------  
    642657   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 
    643662   ! 
    644663END SUBROUTINE agrif_declare_var_top 
     
    649668   !!   *** ROUTINE Agrif_detect *** 
    650669   !!---------------------------------------------------------------------- 
    651    USE Agrif_Types 
    652670   ! 
    653671   INTEGER, DIMENSION(2) :: ksizex 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zbio.F90

    r4624 r4793  
    598598 
    599599   !!====================================================================== 
    600 END MODULE  p2zbio 
     600END MODULE p2zbio 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zbio.F90

    r4529 r4793  
    146146 
    147147   !!====================================================================== 
    148 END MODULE  p4zbio 
    149  
     148END MODULE p4zbio 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zche.F90

    r3557 r4793  
    396396 
    397397   !!====================================================================== 
    398 END MODULE  p4zche 
     398END MODULE p4zche 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90

    r4624 r4793  
    378378 
    379379   !!====================================================================== 
    380 END MODULE  p4zflx 
     380END MODULE p4zflx 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zint.F90

    r3446 r4793  
    8181 
    8282   !!====================================================================== 
    83 END MODULE  p4zint 
     83END MODULE p4zint 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlim.F90

    r4624 r4793  
    267267 
    268268   !!====================================================================== 
    269 END MODULE  p4zlim 
     269END MODULE p4zlim 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlys.F90

    r4624 r4793  
    228228#endif  
    229229   !!====================================================================== 
    230 END MODULE  p4zlys 
     230END MODULE p4zlys 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmeso.F90

    r4624 r4793  
    334334 
    335335   !!====================================================================== 
    336 END MODULE  p4zmeso 
     336END MODULE p4zmeso 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90

    r4624 r4793  
    270270 
    271271   !!====================================================================== 
    272 END MODULE  p4zmicro 
     272END MODULE p4zmicro 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90

    r4624 r4793  
    277277 
    278278   !!====================================================================== 
    279 END MODULE  p4zmort 
     279END MODULE p4zmort 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90

    r4624 r4793  
    404404 
    405405   !!====================================================================== 
    406 END MODULE  p4zopt 
     406END MODULE p4zopt 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90

    r4624 r4793  
    537537 
    538538   !!====================================================================== 
    539 END MODULE  p4zprod 
     539END MODULE p4zprod 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

    r4624 r4793  
    517517 
    518518   !!====================================================================== 
    519 END MODULE  p4zsbc 
     519END MODULE p4zsbc 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsed.F90

    r4641 r4793  
    433433 
    434434   !!====================================================================== 
    435 END MODULE  p4zsed 
     435END MODULE p4zsed 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsink.F90

    r4624 r4793  
    815815 
    816816   !!====================================================================== 
    817 END MODULE  p4zsink 
     817END MODULE p4zsink 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

    r4611 r4793  
    102102      ENDIF 
    103103 
     104#if defined key_agrif 
     105      CALL Agrif_trc                   ! AGRIF zoom boundaries 
     106#endif 
    104107      ! Update after tracer on domain lateral boundaries 
    105108      DO jn = 1, jptra 
     
    110113#if defined key_bdy 
    111114!!      CALL bdy_trc( kt )               ! BDY open boundaries 
    112 #endif 
    113 #if defined key_agrif 
    114       CALL Agrif_trc                   ! AGRIF zoom boundaries 
    115115#endif 
    116116 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r4624 r4793  
    342342   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    343343   !!====================================================================== 
    344 END MODULE  trcnam 
     344END MODULE trcnam 
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

    r3680 r4793  
    7575 
    7676   !!====================================================================== 
    77 END MODULE  trcsms 
     77END MODULE trcsms 
Note: See TracChangeset for help on using the changeset viewer.