Changeset 561 for BOL/trunk/IPCC
- Timestamp:
- Nov 22, 2004, 3:58:19 PM (20 years ago)
- Location:
- BOL/trunk/IPCC
- Files:
-
- 2 edited
-
table.def (modified) (1 diff)
-
ts2IPCC.F90 (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
BOL/trunk/IPCC/table.def
r551 r561 3 3 # ipsl et des variables IPCC 4 4 # 5 # Nom IPSL | unites IPSL | nom IPCC | table IPCC 6 slp | Pa | psl | IPCC_table_A1 7 t2m | K | tas | IPCC_table_A1 8 precip | kg m-2 s-1 | pr | IPCC_table_A1 9 | | mrsos | IPCC_table_A1 10 | | mrso | IPCC_table_A1 11 | | tauu | IPCC_table_A1 12 | | tauv | IPCC_table_A1 13 snow_mass | kg m-2 | snd | IPCC_table_A1 14 | | hfls | IPCC_table_A1 15 sens | W m-2 | hfss | IPCC_table_A1 16 LWdnSFC | W m-2 | rlds | IPCC_table_A1 17 LWupSFC | W m-2 | rlus | IPCC_table_A1 18 SWdnSFC | W m-2 | rsds | IPCC_table_A1 19 SWupSFC | W m-2 | rsus | IPCC_table_A1 20 tsol | K | ts | IPCC_table_A1 21 psol | Pa | ps | IPCC_table_A1 22 snow | kg m-2 s-1 | prsn | IPCC_table_A1 23 pluc | kg m-2 s-1 | prc | IPCC_table_A1 24 | | prw | IPCC_table_A1 25 | | mrfso | IPCC_table_A1 26 | | mrros | IPCC_table_A1 27 | | mrro | IPCC_table_A1 28 | | snw | IPCC_table_A1 29 | | snc | IPCC_table_A1 30 | | snm | IPCC_table_A1 31 u10m | m s-1 | uas | IPCC_table_A1 32 v10m | m s-1 | vas | IPCC_table_A1 33 q2m | kg kg-1 | huss | IPCC_table_A1 34 SWdnTOA | W m-2 | rsdt | IPCC_table_A1 35 SWupTOA | W m-2 | rsut | IPCC_table_A1 36 topl | W m-2 | rlut | IPCC_table_A1 37 | | rtmt | IPCC_table_A1 38 SWdn200 | W m-2 | rsntp | IPCC_table_A1 39 LWup200 | W m-2 | rlntp | IPCC_table_A1 40 SWdn200clr | W m-2 | rsntpcs | IPCC_table_A1 41 LWup200clr | W m-2 | rlntpcs | IPCC_table_A1 42 SWdnSFCclr | W m-2 | rsdscs | IPCC_table_A1 43 SWupSFCclr | W m-2 | rsuscs | IPCC_table_A1 44 LWdnSFCclr | W m-2 | rldscs | IPCC_table_A1 45 | | rlutcs | IPCC_table_A1 46 SWupTOAclr | W m-2 | rsutcs | IPCC_table_A1 47 cldt | | clt | IPCC_table_A1 48 lwp | kg m-2 | clwvi | IPCC_table_A1 49 iwp | kg m-2 | clivi | IPCC_table_A1 50 | | orog | IPCC_table_A1 51 pourc_ter | | sftlf | IPCC_table_A1 52 pourc_lic | | sftgif | IPCC_table_A1 53 | | mrsofc | IPCC_table_A1 54 rneb | | cl | IPCC_table_A1 55 temp | K | ta | IPCC_table_A1 56 vitu | m s-1 | ua | IPCC_table_A1 57 vitv | m s-1 | va | IPCC_table_A1 58 ovap | kg kg-1 | hus | IPCC_table_A1 59 | | wap | IPCC_table_A1 60 geop | m | zg | IPCC_table_A1 61 rhum | | hur | IPCC_table_A1 62 ozone | | tro3 | IPCC_table_A1 63 | | clisccp | IPCC_table_A1 64 | | trsul | IPCC_table_A1 65 | | trsult | IPCC_table_A1 66 | | prveg | IPCC_table_A1 67 | | evspsblveg | IPCC_table_A1 68 | | zmla | IPCC_table_A1 69 | | rootd | IPCC_table_A1 5 # Nom IPSL | unites IPSL | sens | nom IPCC | table IPCC 6 # |positif| 7 slp | Pa | -- | psl | IPCC_table_A1 8 t2m | K | -- | tas | IPCC_table_A1 9 precip | kg m-2 s-1 | -- | pr | IPCC_table_A1 10 | | -- | mrsos | IPCC_table_A1 11 | | -- | mrso | IPCC_table_A1 12 | | -- | tauu | IPCC_table_A1 13 | | -- | tauv | IPCC_table_A1 14 snow_mass | kg m-2 | -- | snd | IPCC_table_A1 15 | | -- | hfls | IPCC_table_A1 16 sens | W m-2 | -- | hfss | IPCC_table_A1 17 LWdnSFC | W m-2 | -- | rlds | IPCC_table_A1 18 LWupSFC | W m-2 | -- | rlus | IPCC_table_A1 19 SWdnSFC | W m-2 | -- | rsds | IPCC_table_A1 20 SWupSFC | W m-2 | up | rsus | IPCC_table_A1 21 tsol | K | -- | ts | IPCC_table_A1 22 psol | Pa | -- | ps | IPCC_table_A1 23 snow | kg m-2 s-1 | -- | prsn | IPCC_table_A1 24 pluc | kg m-2 s-1 | -- | prc | IPCC_table_A1 25 | | -- | prw | IPCC_table_A1 26 | | -- | mrfso | IPCC_table_A1 27 | | -- | mrros | IPCC_table_A1 28 | | -- | mrro | IPCC_table_A1 29 | | -- | snw | IPCC_table_A1 30 | | -- | snc | IPCC_table_A1 31 | | -- | snm | IPCC_table_A1 32 u10m | m s-1 | -- | uas | IPCC_table_A1 33 v10m | m s-1 | -- | vas | IPCC_table_A1 34 q2m | kg kg-1 | -- | huss | IPCC_table_A1 35 SWdnTOA | W m-2 | -- | rsdt | IPCC_table_A1 36 SWupTOA | W m-2 | -- | rsut | IPCC_table_A1 37 topl | W m-2 | -- | rlut | IPCC_table_A1 38 | | -- | rtmt | IPCC_table_A1 39 SWdn200 | W m-2 | -- | rsntp | IPCC_table_A1 40 LWup200 | W m-2 | -- | rlntp | IPCC_table_A1 41 SWdn200clr | W m-2 | -- | rsntpcs | IPCC_table_A1 42 LWup200clr | W m-2 | -- | rlntpcs | IPCC_table_A1 43 SWdnSFCclr | W m-2 | -- | rsdscs | IPCC_table_A1 44 SWupSFCclr | W m-2 | -- | rsuscs | IPCC_table_A1 45 LWdnSFCclr | W m-2 | -- | rldscs | IPCC_table_A1 46 | | -- | rlutcs | IPCC_table_A1 47 SWupTOAclr | W m-2 | -- | rsutcs | IPCC_table_A1 48 cldt | | -- | clt | IPCC_table_A1 49 lwp | kg m-2 | -- | clwvi | IPCC_table_A1 50 iwp | kg m-2 | -- | clivi | IPCC_table_A1 51 | | -- | orog | IPCC_table_A1 52 pourc_ter | | -- | sftlf | IPCC_table_A1 53 pourc_lic | | -- | sftgif | IPCC_table_A1 54 | | -- | mrsofc | IPCC_table_A1 55 rneb | % | -- | cl | IPCC_table_A1 56 temp | K | -- | ta | IPCC_table_A1 57 vitu | m s-1 | -- | ua | IPCC_table_A1 58 vitv | m s-1 | -- | va | IPCC_table_A1 59 ovap | kg kg-1 | -- | hus | IPCC_table_A1 60 | | -- | wap | IPCC_table_A1 61 geop | m | -- | zg | IPCC_table_A1 62 rhum | | -- | hur | IPCC_table_A1 63 ozone | | -- | tro3 | IPCC_table_A1 64 | | -- | clisccp | IPCC_table_A1 65 | | -- | trsul | IPCC_table_A1 66 | | -- | trsult | IPCC_table_A1 67 | | -- | prveg | IPCC_table_A1 68 | | -- | evspsblveg | IPCC_table_A1 69 | | -- | zmla | IPCC_table_A1 70 | | -- | rootd | IPCC_table_A1 -
BOL/trunk/IPCC/ts2IPCC.F90
r555 r561 33 33 character (len=20) :: first_part 34 34 character (len=1004) :: second_part 35 CHARACTER (len=20), DIMENSION(100) :: ipsl_name, ipsl_units 35 CHARACTER (len=20), DIMENSION(100) :: ipsl_name, ipsl_units, ipsl_pos 36 36 CHARACTER (len=20), DIMENSION(100) :: ipcc_name, ipcc_table 37 37 CHARACTER (len=80) :: varname, units, namedim … … 149 149 ipsl_units(indice) = trim(line_read(1:INDEX(line_read, '|')-1)) 150 150 line_read = trim(line_read(INDEX(line_read, '|')+1:)) 151 ipsl_pos(indice) = trim(line_read(1:INDEX(line_read, '|')-1)) 152 line_read = trim(line_read(INDEX(line_read, '|')+1:)) 151 153 ipcc_name(indice) = trim(line_read(1:INDEX(line_read, '|')-1)) 152 154 ipcc_table(indice) = trim(line_read(INDEX(line_read, '|')+1:)) … … 377 379 axis_ids= axis_ids, & 378 380 missing_value=real(missing_value), & 381 positive = trim(ipsl_pos(index_table)), & 379 382 original_name=varname) 380 383 !
Note: See TracChangeset
for help on using the changeset viewer.
