- Timestamp:
- 2021-01-22T11:50:04+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/ICB/icbini.F90
r14314 r14327 189 189 190 190 ! north fold 191 IF( l_ NFoldT .OR. l_NFoldF) THEN191 IF( l_IdoNFold ) THEN 192 192 ! 193 193 ! icebergs in row nicbej+1 get passed across fold … … 235 235 WRITE(numicb,*) "j point" 236 236 WRITE(numicb,*) (INT(src_calving(ji,jj)), jj=1,jpj) 237 IF( l_ NFoldT .OR. l_NFoldF) THEN237 IF( l_IdoNFold ) THEN 238 238 WRITE(numicb,*) 'north fold destination points ' 239 239 WRITE(numicb,*) nicbfldpts
Note: See TracChangeset
for help on using the changeset viewer.