Changeset 10516 for NEMO/trunk/tests/ICE_AGRIF/MY_SRC/usrdef_sbc.F90

Timestamp:

2019-01-15T17:31:25+01:00 (5 years ago)

Author:

clem

Message:

change demo config name from ICEDYN to ICE_AGRIF

Location:

NEMO/trunk/tests/ICE_AGRIF

Files:

• . (moved) (moved from NEMO/trunk/tests/ICEDYN)
• MY_SRC/usrdef_sbc.F90 (modified) (6 diffs)

NEMO/trunk/tests/ICE_AGRIF/MY_SRC/usrdef_sbc.F90

@@ -3 +3 @@
    !!                       ***  MODULE  usrdef_sbc  ***
    !! 
-   !!                      ===  ICEDYN configuration  ===
+   !!                      ===  ICE_AGRIF configuration  ===
    !!
    !! User defined :   surface forcing of a user configuration
@@ -11 +11 @@
 
    !!----------------------------------------------------------------------
-   !!   usr_def_sbc    : user defined surface bounday conditions in ICEDYN case
+   !!   usr_def_sbc    : user defined surface bounday conditions in ICE_AGRIF case
    !!----------------------------------------------------------------------
    USE oce             ! ocean dynamics and tracers
@@ -49 +49 @@
       !!              condition, i.e. the momentum, heat and freshwater fluxes.
       !!
-      !! ** Method  :   all 0 fields, for ICEDYN case
+      !! ** Method  :   all 0 fields, for ICE_AGRIF case
       !!                CAUTION : never mask the surface stress field !
       !!
@@ -61 +61 @@
       IF( kt == nit000 ) THEN
          !
-         IF(lwp)   WRITE(numout,*)' usrdef_sbc_oce : ICEDYN case: NO surface forcing'
+         IF(lwp)   WRITE(numout,*)' usrdef_sbc_oce : ICE_AGRIF case: NO surface forcing'
          ! --- oce variables --- !
          utau(:,:) = 0._wp 
@@ -91 +91 @@
       INTEGER, INTENT(in) ::   kt   ! ocean time step
       !!---------------------------------------------------------------------
-      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICEDYN case: constant stress forcing'
+      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICE_AGRIF case: constant stress forcing'
       !
       utau_ice(:,:) = 1.3_wp   ! <=> 0.5 m/s
@@ -112 +112 @@
       !!---------------------------------------------------------------------
       !
-      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICEDYN case: NO flux forcing'
+      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICE_AGRIF case: NO flux forcing'
       !
       ! ocean variables (renaming)