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 12521 for NEMO/branches/2020/r12377_ticket2386/src/OCE/ISF/isfcav.F90 – NEMO

Ignore:
Timestamp:
2020-03-09T11:16:28+01:00 (3 years ago)
Author:
andmirek
Message:

Ticket 2386: fixes in the code

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/r12377_ticket2386/src/OCE/ISF/isfcav.F90

    r12511 r12521  
    183183      ! cavity mask 
    184184      mskisf_cav(:,:)    = (1._wp - tmask(:,:,1)) * ssmask(:,:) 
    185       ! 
    186       !================ 
    187       ! 2: read restart 
     185      !================ 
     186      ! 2: activate restart 
     187      !================ 
     188      ! 
     189      IF( lwxios ) THEN 
     190         CALL iom_set_rstw_var_active('fwfisf_cav_b') 
     191         CALL iom_set_rstw_var_active('isf_hc_cav_b') 
     192         CALL iom_set_rstw_var_active('isf_sc_cav_b') 
     193      ENDIF 
     194      ! 
     195      !================ 
     196      ! 3: read restart 
    188197      !================ 
    189198      ! 
Note: See TracChangeset for help on using the changeset viewer.