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

Changeset 11927


Ignore:
Timestamp:
2019-11-19T15:49:40+01:00 (5 years ago)
Author:
dancopsey
Message:

Fix compile errors and resolve conflicts

Location:
NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/iceistate.F90

    r11918 r11927  
    5151   REAL(wp) ::   rn_apd_ini_s, rn_hpd_ini_s 
    5252   ! 
    53    !                              ! if ln_iceini_file = T 
     53   !                              ! if nn_iceini_file = 1 
    5454   INTEGER , PARAMETER ::   jpfldi = 9           ! maximum number of files to read 
    5555   INTEGER , PARAMETER ::   jp_hti = 1           ! index of ice thickness    (m) 
     
    498498         WRITE(numout,*) '      ice initialization from a netcdf file            nn_iceini_file = ', nn_iceini_file 
    499499         WRITE(numout,*) '      max ocean temp. above Tfreeze with initial ice   rn_thres_sst   = ', rn_thres_sst 
    500          IF( ln_iceini .AND. .NOT.ln_iceini_file ) THEN 
     500         IF( ln_iceini .AND. nn_iceini_file == 0 ) THEN 
    501501            WRITE(numout,*) '      initial snw thickness in the north-south         rn_hts_ini     = ', rn_hts_ini_n,rn_hts_ini_s  
    502502            WRITE(numout,*) '      initial ice thickness in the north-south         rn_hti_ini     = ', rn_hti_ini_n,rn_hti_ini_s 
  • NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/icerst.F90

    r11715 r11927  
    274274         CALL ice_istate( nit000 ) 
    275275         ! 
    276          IF( .NOT.ln_iceini .OR. .NOT.ln_iceini_file ) & 
    277             &   CALL ctl_stop('STOP', 'ice_rst_read: you need ln_ice_ini=T and ln_iceini_file=T') 
     276         IF( .NOT.ln_iceini .OR. nn_iceini_file == 0 ) & 
     277            &   CALL ctl_stop('STOP', 'ice_rst_read: you need ln_ice_ini=T and nn_iceini_file=0') 
    278278         ! 
    279279      ENDIF 
  • NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/icewri.F90

    r11916 r11927  
    152152      IF( iom_use('iceconc_cat' ) )   CALL iom_put( 'iceconc_cat' , a_i            * zmsk00l                                   ) ! area for categories 
    153153      IF( iom_use('icethic_cat' ) )   CALL iom_put( 'icethic_cat' , h_i            * zmsk00l + zmiss_val * ( 1._wp - zmsk00l ) ) ! thickness for categories 
    154       IF( iom_use('icevol_cat'  ) )   CALL iom_put( "icevol_cat"  , v_i            * zmsk00l                                   ) ! volume for categories 
    155154      IF( iom_use('snwthic_cat' ) )   CALL iom_put( 'snwthic_cat' , h_s            * zmsksnl + zmiss_val * ( 1._wp - zmsksnl ) ) ! snow depth for categories 
    156155      IF( iom_use('icesalt_cat' ) )   CALL iom_put( 'icesalt_cat' , s_i            * zmsk00l + zmiss_val * ( 1._wp - zmsk00l ) ) ! salinity for categories 
     
    166165      IF( iom_use('iceafpnd_cat') )   CALL iom_put( 'iceafpnd_cat',   a_ip_frac    * zmsk00l                                   ) ! melt pond frac for categories 
    167166      IF( iom_use('icealb_cat'  ) )   CALL iom_put( 'icealb_cat'  ,   alb_ice      * zmsk00l + zmiss_val * ( 1._wp - zmsk00l ) ) ! ice albedo for categories 
     167 
     168      IF( iom_use('icevol_cat'  ) )   CALL iom_put( "icevol_cat"  , v_i            * zmsk00l                                   ) ! volume for categories 
    168169 
    169170      !------------------ 
Note: See TracChangeset for help on using the changeset viewer.