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 15417 – NEMO

Changeset 15417


Ignore:
Timestamp:
2021-10-20T16:16:29+02:00 (2 years ago)
Author:
lovato
Message:

fix error introduced in the previous commit in src/OCE/ASM/asmbkg.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/ASM/asmbkg.F90

    r15399 r15417  
    3131   USE eosbn2             ! Equation of state (eos_bn2 routine) 
    3232   USE zdfmxl             ! Mixed layer depth 
    33    USE dom_oce     , ONLY :   ndastp, l_istiled, 
     33   USE dom_oce     , ONLY : ndastp, l_istiled 
    3434   USE in_out_manager     ! I/O manager 
    3535   USE iom                ! I/O module 
     
    142142                CALL iom_rstput( kt, nitdin_r, inum, 'sn'     , ts(:,:,:,jp_sal,Kmm) ) 
    143143                CALL iom_rstput( kt, nitdin_r, inum, 'sshn'   , ssh(:,:,Kmm)         ) 
    144     #if defined key_si3 
     144#if defined key_si3 
    145145                IF( nn_ice == 2 ) THEN 
    146146                  IF( ALLOCATED(at_i) ) THEN 
     
    151151                  ENDIF 
    152152                ENDIF 
    153     #endif 
     153#endif 
    154154                ! 
    155155                CALL iom_close( inum ) 
Note: See TracChangeset for help on using the changeset viewer.