Ignore:
Timestamp:
2019-11-08T12:26:42+01:00 (11 months ago)
Author:
mathiot
Message:

ENHANCE-02_ISF_nemo: add timing in the main isf routine + various bug fixes + cosmetic changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DIA/diawri.F90

    r11529 r11876  
    907907      CALL iom_rstput( 0, 0, inum, 'vomecrty', vn                )    ! now j-velocity 
    908908      CALL iom_rstput( 0, 0, inum, 'vovecrtz', wn                )    ! now k-velocity 
    909       CALL iom_rstput( 0, 0, inum, 'risfdep', risfdep          )    ! now k-velocity 
     909      CALL iom_rstput( 0, 0, inum, 'risfdep', risfdep            )    ! now k-velocity 
     910      CALL iom_rstput( 0, 0, inum, 'ht_n'   , ht_n               )    ! now k-velocity 
    910911      IF ( ln_isf ) THEN 
    911912         IF (ln_isfcav_mlt) THEN 
     
    925926         END IF 
    926927      END IF 
     928 
     929      IF ( ln_isf ) THEN 
     930         IF (ln_isfcav_mlt) CALL iom_rstput( 0, 0, inum, 'mskisf_cav', REAL(mskisf_cav,8), ktype = jp_i1 ) 
     931         IF (ln_isfpar_mlt) CALL iom_rstput( 0, 0, inum, 'mskisf_par', REAL(mskisf_par,8), ktype = jp_i1 ) 
     932      END IF 
     933       
    927934      IF( ALLOCATED(ahtu) ) THEN 
    928935         CALL iom_rstput( 0, 0, inum,  'ahtu', ahtu              )    ! aht at u-point 
Note: See TracChangeset for help on using the changeset viewer.