Changeset 10513 for NEMO/trunk/tests/ICE_ADV1D/MY_SRC/usrdef_sbc.F90

Timestamp:

2019-01-15T14:43:24+01:00 (5 years ago)

Author:

clem

Message:

change demo config from ICEADV to ICE_ADV1D

Location:

NEMO/trunk/tests/ICE_ADV1D

Files:

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

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

@@ -3 +3 @@
    !!                       ***  MODULE  usrdef_sbc  ***
    !! 
-   !!                      ===  ICEADV configuration  ===
+   !!                      ===  ICE_ADV1D configuration  ===
    !!
    !! User defined :   surface forcing of a user configuration
@@ -11 +11 @@
 
    !!----------------------------------------------------------------------
-   !!   usr_def_sbc    : user defined surface bounday conditions in ICEADV case
+   !!   usr_def_sbc    : user defined surface bounday conditions in ICE_ADV1D case
    !!----------------------------------------------------------------------
    USE oce             ! ocean dynamics and tracers
@@ -49 +49 @@
       !!              condition, i.e. the momentum, heat and freshwater fluxes.
       !!
-      !! ** Method  :   all 0 fields, for ICEADV case
+      !! ** Method  :   all 0 fields, for ICE_ADV1D case
       !!                CAUTION : never mask the surface stress field !
       !!
@@ -61 +61 @@
       IF( kt == nit000 ) THEN
          !
-         IF(lwp)   WRITE(numout,*)' usrdef_sbc_oce : ICEADV case: NO surface forcing'
+         IF(lwp)   WRITE(numout,*)' usrdef_sbc_oce : ICE_ADV1D 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 : ICEADV case: no stress forcing'
+      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICE_ADV1D case: no stress forcing'
       !
       utau_ice(:,:) = 0._wp
@@ -112 +112 @@
       !!---------------------------------------------------------------------
       !
-      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICEADV case: NO flux forcing'
+      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICE_ADV1D case: NO flux forcing'
       !
       ! ocean variables (renaming)