source: NEMO/branches/2019/dev_r11842_SI3-10_EAP/src/ICE/icedyn_rhg.F90 @ 13105

Last change on this file since 13105 was 13105, checked in by stefryn, 16 months ago

small changes to calls

  • Property svn:keywords set to Id
File size: 8.5 KB
Line 
1MODULE icedyn_rhg
2   !!======================================================================
3   !!                     ***  MODULE  icedyn_rhg  ***
4   !!   Sea-Ice dynamics : master routine for rheology
5   !!======================================================================
6   !! history :  4.0  !  2018     (C. Rousset)      Original code
7   !!----------------------------------------------------------------------
8#if defined key_si3
9   !!----------------------------------------------------------------------
10   !!   'key_si3'                                       SI3 sea-ice model
11   !!----------------------------------------------------------------------
12   !!    ice_dyn_rhg      : computes ice velocities
13   !!    ice_dyn_rhg_init : initialization and namelist read
14   !!----------------------------------------------------------------------
15   USE phycst         ! physical constants
16   USE dom_oce        ! ocean space and time domain
17   USE ice            ! sea-ice: variables
18   USE icedyn_rhg_evp ! sea-ice: EVP rheology
19   USE icedyn_rhg_eap ! sea-ice: EAP rheology
20   USE icectl         ! sea-ice: control prints
21   !
22   USE in_out_manager ! I/O manager
23   USE lib_mpp        ! MPP library
24   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero)
25   USE timing         ! Timing
26
27   IMPLICIT NONE
28   PRIVATE
29
30   PUBLIC   ice_dyn_rhg        ! called by icestp.F90
31   PUBLIC   ice_dyn_rhg_init   ! called by icestp.F90
32
33   INTEGER ::              nice_rhg   ! choice of the type of rheology
34   !                                        ! associated indices:
35   INTEGER, PARAMETER ::   np_rhgEVP = 1   ! EVP rheology
36   INTEGER, PARAMETER ::   np_rhgEAP = 2   ! EAP rheology
37
38   ! ** namelist (namrhg) **
39!   LOGICAL ::   ln_rhg_EVP       ! EVP rheology, used by icedyn_rdgrft
40!   LOGICAL ::   ln_rhg_EAP       ! EAP rheology, used by icedyn_rdgrft
41   !LOGICAL, PUBLIC ::   ln_rhg_EVP       ! EVP rheology, used by icedyn_rdgrft
42   !LOGICAL, PUBLIC ::   ln_rhg_EAP       ! EAP rheology, used by icedyn_rdgrft
43   !
44   !! * Substitutions
45#  include "vectopt_loop_substitute.h90"
46   !!----------------------------------------------------------------------
47   !! NEMO/ICE 4.0 , NEMO Consortium (2018)
48   !! $Id$
49   !! Software governed by the CeCILL licence     (./LICENSE)
50   !!----------------------------------------------------------------------
51CONTAINS
52
53   SUBROUTINE ice_dyn_rhg( kt )
54      !!-------------------------------------------------------------------
55      !!               ***  ROUTINE ice_dyn_rhg  ***
56      !!               
57      !! ** Purpose :   compute ice velocity
58      !!
59      !! ** Action  : comupte - ice velocity (u_ice, v_ice)
60      !!                      - 3 components of the stress tensor (stress1_i, stress2_i, stress12_i)
61      !!                      - shear, divergence and delta (shear_i, divu_i, delta_i)
62      !!--------------------------------------------------------------------
63      INTEGER, INTENT(in) ::   kt     ! ice time step
64      !
65      INTEGER  ::   jl   ! dummy loop indices
66      !!--------------------------------------------------------------------
67      ! controls
68      IF( ln_timing    )   CALL timing_start('icedyn_rhg')                                                             ! timing
69      IF( ln_icediachk )   CALL ice_cons_hsm(0, 'icedyn_rhg', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation
70      IF( ln_icediachk )   CALL ice_cons2D  (0, 'icedyn_rhg',  diag_v,  diag_s,  diag_t,  diag_fv,  diag_fs,  diag_ft) ! conservation
71      !
72      IF( kt == nit000 .AND. lwp ) THEN
73         WRITE(numout,*)
74         WRITE(numout,*)'ice_dyn_rhg: sea-ice rheology'
75         WRITE(numout,*)'~~~~~~~~~~~'
76      ENDIF
77      !
78      !--------------!
79      !== Rheology ==!
80      !--------------!   
81      SELECT CASE( nice_rhg )
82      !                                !------------------------!
83      CASE( np_rhgEVP )                ! Elasto-Viscous-Plastic !
84         !                             !------------------------!
85         CALL ice_dyn_rhg_evp( kt, stress1_i, stress2_i, stress12_i, shear_i, divu_i, delta_i )
86         !         
87         !                             !----------------------------!
88      CASE( np_rhgEAP )                ! Elasto-Anisotropic-Plastic !
89         !                             !----------------------------!
90         CALL ice_dyn_rhg_eap( kt, stress1_i, stress2_i, stress12_i, shear_i, divu_i, delta_i, aniso_11, aniso_12, rdg_conv )
91      END SELECT
92      !
93      IF( lrst_ice ) THEN                     
94         IF( ln_rhg_EVP )   CALL rhg_evp_rst( 'WRITE', kt ) !* write EVP fields in the restart file
95         IF( ln_rhg_EAP )   CALL rhg_eap_rst( 'WRITE', kt ) !* write EAP fields in the restart file
96      ENDIF
97      !
98      ! controls
99      IF( ln_ctl       )   CALL ice_prt3D   ('icedyn_rhg')                                                             ! prints
100      IF( ln_icediachk )   CALL ice_cons_hsm(1, 'icedyn_rhg', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation
101      IF( ln_icediachk )   CALL ice_cons2D  (1, 'icedyn_rhg',  diag_v,  diag_s,  diag_t,  diag_fv,  diag_fs,  diag_ft) ! conservation
102      IF( ln_timing    )   CALL timing_stop ('icedyn_rhg')                                                             ! timing
103      !
104   END SUBROUTINE ice_dyn_rhg
105
106
107   SUBROUTINE ice_dyn_rhg_init
108      !!-------------------------------------------------------------------
109      !!                  ***  ROUTINE ice_dyn_rhg_init  ***
110      !!
111      !! ** Purpose : Physical constants and parameters linked to the ice
112      !!      dynamics
113      !!
114      !! ** Method  :  Read the namdyn_rhg namelist and check the ice-dynamic
115      !!       parameter values called at the first timestep (nit000)
116      !!
117      !! ** input   :   Namelist namdyn_rhg
118      !!-------------------------------------------------------------------
119      INTEGER ::   ios, ioptio   ! Local integer output status for namelist read
120      !!
121      NAMELIST/namdyn_rhg/  ln_rhg_EVP, ln_aEVP, rn_creepl, rn_ecc , nn_nevp, rn_relast, ln_rhg_EAP
122      !!-------------------------------------------------------------------
123      !
124      REWIND( numnam_ice_ref )         ! Namelist namdyn_rhg in reference namelist : Ice dynamics
125      READ  ( numnam_ice_ref, namdyn_rhg, IOSTAT = ios, ERR = 901)
126901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in reference namelist' )
127      REWIND( numnam_ice_cfg )         ! Namelist namdyn_rhg in configuration namelist : Ice dynamics
128      READ  ( numnam_ice_cfg, namdyn_rhg, IOSTAT = ios, ERR = 902 )
129902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist' )
130      IF(lwm) WRITE ( numoni, namdyn_rhg )
131      !
132      IF(lwp) THEN                     ! control print
133         WRITE(numout,*)
134         WRITE(numout,*) 'ice_dyn_rhg_init: ice parameters for ice dynamics '
135         WRITE(numout,*) '~~~~~~~~~~~~~~~'
136         WRITE(numout,*) '   Namelist : namdyn_rhg:'
137         WRITE(numout,*) '      rheology EVP (icedyn_rhg_evp)                        ln_rhg_EVP = ', ln_rhg_EVP
138         WRITE(numout,*) '         use adaptive EVP (aEVP)                           ln_aEVP    = ', ln_aEVP
139         WRITE(numout,*) '         creep limit                                       rn_creepl  = ', rn_creepl
140         WRITE(numout,*) '         eccentricity of the elliptical yield curve        rn_ecc     = ', rn_ecc
141         WRITE(numout,*) '         number of iterations for subcycling               nn_nevp    = ', nn_nevp
142         WRITE(numout,*) '         ratio of elastic timescale over ice time step     rn_relast  = ', rn_relast
143         WRITE(numout,*) '      rheology EAP (icedyn_rhg_eap)                        ln_rhg_EAP = ', ln_rhg_EAP
144      ENDIF
145      !
146      !                             !== set the choice of ice advection ==!
147      ioptio = 0 
148      IF( ln_rhg_EVP ) THEN   ;   ioptio = ioptio + 1   ;   nice_rhg = np_rhgEVP    ;   ENDIF
149      IF( ln_rhg_EAP ) THEN   ;   ioptio = ioptio + 1   ;   nice_rhg = np_rhgEAP    ;   ENDIF
150      IF( ioptio /= 1 )   CALL ctl_stop( 'ice_dyn_rhg_init: choose one and only one ice rheology' )
151      !
152      IF( ln_rhg_EVP  )   CALL rhg_evp_rst( 'READ' )  !* read or initialize all required files
153      IF( ln_rhg_EAP  )   CALL rhg_eap_rst( 'READ' )  !* read or initialize all required files
154      !
155   END SUBROUTINE ice_dyn_rhg_init
156
157#else
158   !!----------------------------------------------------------------------
159   !!   Default option         Empty module           NO SI3 sea-ice model
160   !!----------------------------------------------------------------------
161#endif 
162
163   !!======================================================================
164END MODULE icedyn_rhg
Note: See TracBrowser for help on using the repository browser.