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 5605 for branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90 – NEMO

Ignore:
Timestamp:
2015-07-16T20:05:07+02:00 (9 years ago)
Author:
mathiot
Message:

Marine glacier termini: initial commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r5503 r5605  
    364364                  END DO 
    365365                  nk_rnf(ji,jj) = jk 
     366               ELSEIF( h_rnf(ji,jj) == 0._wp    ) THEN   ;  nk_rnf(ji,jj) = 1 ! (need to be remove before sumition into the trunk) 
    366367               ELSEIF( h_rnf(ji,jj) == -1._wp   ) THEN   ;  nk_rnf(ji,jj) = 1 
    367368               ELSEIF( h_rnf(ji,jj) == -999._wp ) THEN   ;  nk_rnf(ji,jj) = mbkt(ji,jj) 
Note: See TracChangeset for help on using the changeset viewer.