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 11456 for branches/UKMO/dev_r5518_obs_oper_update_addclim/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_prof.F90 – NEMO

Ignore:
Timestamp:
2019-08-19T18:27:52+02:00 (5 years ago)
Author:
mattmartin
Message:

First wrking version which produces correct seeming results.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_obs_oper_update_addclim/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_prof.F90

    r11455 r11456  
    698698                                 &                inpfiles(jj)%padd(ij,ji,1,jvar) 
    699699                           ENDIF 
     700                           IF ( profdata%lclim ) THEN 
     701                               profdata%var(jvar)%vclm(ivart(jvar)) = fbrmdi 
     702                           ENDIF                           
    700703                           ! Count number of profile var1 data as function of type 
    701704                           itypvar( profdata%ntyp(iprof) + 1, jvar ) = & 
Note: See TracChangeset for help on using the changeset viewer.