Ignore:
Timestamp:
2019-01-15T14:43:24+01:00 (21 months ago)
Author:
clem
Message:

change demo config from ICEADV to ICE_ADV1D

Location:
NEMO/trunk/tests/ICE_ADV1D
Files:
1 edited
1 moved

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/tests/ICE_ADV1D/MY_SRC/usrdef_sbc.F90

    r10413 r10513  
    33   !!                       ***  MODULE  usrdef_sbc  *** 
    44   !!  
    5    !!                      ===  ICEADV configuration  === 
     5   !!                      ===  ICE_ADV1D configuration  === 
    66   !! 
    77   !! User defined :   surface forcing of a user configuration 
     
    1111 
    1212   !!---------------------------------------------------------------------- 
    13    !!   usr_def_sbc    : user defined surface bounday conditions in ICEADV case 
     13   !!   usr_def_sbc    : user defined surface bounday conditions in ICE_ADV1D case 
    1414   !!---------------------------------------------------------------------- 
    1515   USE oce             ! ocean dynamics and tracers 
     
    4949      !!              condition, i.e. the momentum, heat and freshwater fluxes. 
    5050      !! 
    51       !! ** Method  :   all 0 fields, for ICEADV case 
     51      !! ** Method  :   all 0 fields, for ICE_ADV1D case 
    5252      !!                CAUTION : never mask the surface stress field ! 
    5353      !! 
     
    6161      IF( kt == nit000 ) THEN 
    6262         ! 
    63          IF(lwp)   WRITE(numout,*)' usrdef_sbc_oce : ICEADV case: NO surface forcing' 
     63         IF(lwp)   WRITE(numout,*)' usrdef_sbc_oce : ICE_ADV1D case: NO surface forcing' 
    6464         ! --- oce variables --- ! 
    6565         utau(:,:) = 0._wp  
     
    9191      INTEGER, INTENT(in) ::   kt   ! ocean time step 
    9292      !!--------------------------------------------------------------------- 
    93       IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICEADV case: no stress forcing' 
     93      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICE_ADV1D case: no stress forcing' 
    9494      ! 
    9595      utau_ice(:,:) = 0._wp 
     
    112112      !!--------------------------------------------------------------------- 
    113113      ! 
    114       IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICEADV case: NO flux forcing' 
     114      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICE_ADV1D case: NO flux forcing' 
    115115      ! 
    116116      ! ocean variables (renaming) 
Note: See TracChangeset for help on using the changeset viewer.