New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5948 for branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90 – NEMO

Ignore:
Timestamp:
2015-11-30T11:47:24+01:00 (8 years ago)
Author:
timgraham
Message:

Merged in head of trunk (r5936)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90

    r5947 r5948  
    1818 
    1919   !!---------------------------------------------------------------------- 
    20    !!   'key_asminc' : Switch on the assimilation increment interface 
    21    !!---------------------------------------------------------------------- 
    2220   !!   asm_bkg_wri  : Write out the background state 
    2321   !!   asm_trj_wri  : Write out the model state trajectory (used with 4D-Var) 
     
    2725   USE zdf_oce            ! Vertical mixing variables 
    2826   USE zdfddm             ! Double diffusion mixing parameterization 
    29    USE ldftra_oce         ! Lateral tracer mixing coefficient defined in memory 
    30    USE ldfslp             ! Slopes of neutral surfaces 
     27   USE ldftra             ! Lateral diffusion: eddy diffusivity coefficients 
     28   USE ldfslp             ! Lateral diffusion: slopes of neutral surfaces 
    3129   USE tradmp             ! Tracer damping 
    3230#if defined key_zdftke 
     
    3634   USE zdfmxl             ! Mixed layer depth 
    3735   USE dom_oce, ONLY :   ndastp 
    38    USE sol_oce, ONLY :   gcx   ! Solver variables defined in memory 
    3936   USE in_out_manager     ! I/O manager 
    4037   USE iom                ! I/O module 
    4138   USE asmpar             ! Parameters for the assmilation interface 
    4239   USE zdfmxl             ! mixed layer depth 
    43 #if defined key_traldf_c2d 
    44    USE ldfeiv             ! eddy induced velocity coef.      (ldf_eiv routine) 
    45 #endif 
    4640#if defined key_lim2 
    4741   USE ice_2 
     
    119113            CALL iom_rstput( kt, nitbkg_r, inum, 'en'     , en                ) 
    120114#endif 
    121             CALL iom_rstput( kt, nitbkg_r, inum, 'gcx'    , gcx               ) 
    122115            ! 
    123116            CALL iom_close( inum ) 
     
    155148            CALL iom_rstput( kt, nitdin_r, inum, 'sshn'   , sshn              ) 
    156149#if defined key_lim2 || defined key_lim3 
    157             IF(( nn_ice == 2 ) .OR. ( nn_ice == 3 )) THEN 
    158           IF(ALLOCATED(frld)) THEN 
    159                   CALL iom_rstput( kt, nitdin_r, inum, 'iceconc', 1.0 - frld(:,:)   ) 
     150            IF( nn_ice == 2  .OR.  nn_ice == 3 ) THEN 
     151               IF( ALLOCATED(frld) ) THEN 
     152                  CALL iom_rstput( kt, nitdin_r, inum, 'iceconc', 1._wp - frld(:,:)   ) 
    160153               ELSE 
    161         CALL ctl_warn('Ice concentration not written to background as ice variable frld not allocated on this timestep') 
    162           ENDIF 
     154                  CALL ctl_warn('Ice concentration not written to background as ice variable frld not allocated on this timestep') 
     155               ENDIF 
    163156            ENDIF 
    164157#endif 
Note: See TracChangeset for help on using the changeset viewer.