Changeset 6283


Ignore:
Timestamp:
2016-02-03T13:06:07+01:00 (6 years ago)
Author:
drew
Message:

Commit changes Jennie made at VN3.5.

Location:
branches/UKMO/dev_r5518_seaiceobs/NEMOGCM/NEMO/OPA_SRC/OBS
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_seaiceobs/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r6282 r6283  
    2020   USE in_out_manager           ! I/O manager 
    2121   USE par_oce 
     22   USE sbc_oce, ONLY : fr_i     ! ice fraction 
    2223   USE dom_oce                  ! Ocean space and time domain variables 
    2324   USE obs_fbm, ONLY: ln_cl4    ! Class 4 diagnostic switch 
     
    799800         seaicedatqc(:)%nsurf=0 
    800801 
    801          CALL obs_rea_seaice( 1, seaicedata(nseaicesets), jnumseaice, & 
     802         CALL obs_rea_seaice( 0, seaicedata(nseaicesets), jnumseaice, & 
    802803            &                 seaicefiles(1:jnumseaice), & 
    803804            &                 nseaicevars, nseaiceextr, nitend-nit000+2, & 
     
    11021103#endif 
    11031104 
     1105#if defined key_cice 
     1106      IF ( ln_seaice ) THEN 
     1107         DO jseaiceset = 1, nseaicesets 
     1108             CALL obs_seaice_opt( seaicedatqc(jseaiceset),           & 
     1109               &              kstp, jpi, jpj, nit000, fr_i(:,:),     & 
     1110               &              tmask(:,:,1), n2dint ) 
     1111         END DO          
     1112      ENDIF       
     1113#endif 
     1114 
    11041115      !  - Velocity profiles 
    11051116      IF ( ln_vel3d ) THEN 
     
    11471158      INTEGER :: jfbini 
    11481159      CHARACTER(LEN=20) :: datestr=" ",timestr=" " 
    1149       CHARACTER(LEN=10) :: cdtmp 
     1160      CHARACTER(LEN=20) :: cdtmp 
    11501161      !----------------------------------------------------------------------- 
    11511162      ! Depending on switches call various observation output routines 
  • branches/UKMO/dev_r5518_seaiceobs/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_seaice.F90

    r6282 r6283  
    194194               CALL read_obfbdata( TRIM( cfilenames(jj) ), inpfiles(jj), & 
    195195                  &                ldgrid = .TRUE. ) 
    196                IF ( ldmod .AND. ( ( inpfiles(jj)%nadd == 0 ) .OR.& 
    197                   &               ( inpfiles(jj)%next < 2 ) ) ) THEN 
     196               IF ( ldmod .AND. ( inpfiles(jj)%nadd == 0 ) ) THEN 
    198197                  CALL ctl_stop( 'Model not in input data' ) 
    199198                  RETURN 
  • branches/UKMO/dev_r5518_seaiceobs/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90

    r6282 r6283  
    598598      !!      ! 07-07  (S. Ricci) Original 
    599599      !!      ! 09-01  (K. Mogensen) New feedback format. 
     600      !!      ! 2011-07 (D. Lea) Change SEAICE to ICECONC 
    600601      !!----------------------------------------------------------------------- 
    601602 
     
    633634      CALL init_obfbdata( fbdata ) 
    634635 
    635       CALL alloc_obfbdata( fbdata, 1, seaicedata%nsurf, 1, 1, 0, .TRUE. ) 
    636  
    637       fbdata%cname(1)      = 'SEAICE' 
    638       fbdata%coblong(1)    = 'Sea ice' 
     636      CALL alloc_obfbdata( fbdata, 1, seaicedata%nsurf, 1, & 
     637         &                 1 + nadd, next, .TRUE. ) 
     638 
     639      fbdata%cname(1)      = 'ICECONC' 
     640      fbdata%coblong(1)    = 'Sea ice concentration' 
    639641      fbdata%cobunit(1)    = 'Fraction' 
    640642      DO je = 1, next 
Note: See TracChangeset for help on using the changeset viewer.